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

var a:real;
begin
  writeln('введите a:');
  readln(a);
  if a<=18 then
  writeln('число не больше 18')
end.