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

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