Ejercicio 2

Plantee e implemente un programa en PASCAL que solicite un número por
teclado y que esté constantemente  solicitando un número si no está
comprendido entre 20 y 30 ambos inclusive.


PROGRAM repetitiva(input,output);
(*Programa que pida un numero por pantalla y que lo solicite hasta que este comprendido entre 20 y 30 ambos incluidos*)

VAR
n:real;
BEGIN
 write('Escriba un numero:');
 read(n);

 IF ((n<=30)AND(n>=20)) THEN writeln('Fin') ELSE
BEGIN
REPEAT
write('Escriba otro numero:');
read(n);
UNTIL ((n<=30)AND(n>=20));
END;
END.

Ejemplo de ejecución