Ввести с клавиатуры число a. Если это число не больше, чем 18, то вывести на экран сообщение: "Число не больше 18
Var a:real;
begin
writeln(введите a:);
readln(a);
if a<=18 then
writeln(число не больше 18)
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
