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

program zz1;

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

begin

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

read(a);

if a lt; 18 // проверяем условие, если введенное число меньше 18-ти, то

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

end.