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

Question

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

Answer 1

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