program proverka;
var x:integer;
begin
write('Введите число -> ');
read(x);
if (x>5)and(x<20) then writeln ('Число больше 5 , но меньше 20')else
writeln ('Число меньше 5, или больше 20');
end.
program proverka;
var x:integer;
begin
write('Введите число -> ');
read(x);
if (x>5)and(x<20) then writeln ('Число больше 5 , но меньше 20')else
writeln ('Число меньше 5, или больше 20');
end.