Ввести с клавиатуры число a. Если это число не больше, чем 18, то вывести на экран сообщение: "Число не больше 18

program zz1;

var a:integer; / / вводим переменную целого типа

begin

write (' введите заданное число '); / / вводим с клавиатуры число

read (a);

if a < 18 / / проверяем условие, если введенное число меньше восемнадцати, то

then write (' Число не больше 18 '); / / выводим ответ

end.