" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
sub main()
dim s as integer
dim n as boolean = 70
write("ingresa la nota")
s = readline()
n = (s = 70) or (s <= 70)
if n = false then
write("aprobaste")
elseif n = true then
write("reprobaste")
end if
end sub