Составить программу для проверки является ли число больше 5 и меньше 20 одновременно Паскаль​

program proverka;

var x:integer;

begin

write('Введите число -> ');

read(x);

if (x>5)and(x<20) then writeln ('Число больше 5 , но меньше 20')else

writeln ('Число меньше 5, или больше 20');

end.