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

Question

Петрята

11 июня, 08:50

+2

Ответы (1)

Знаете ответ на вопрос?

Варя · Answer 1

Var a:real;

begin

writeln ('введите a:') ;

readln (a) ;

if a<=18 then

writeln ('число не больше 18')

end.