Question

Написать программу,которая запрашивает возраст человека. Если ему 18 и больше лет, то выводит сообщение Совершеннолетний иначе - несовершеннолетний
помогите пожалуиста

Answer 1

Program Program1;
var 
A:Real;
Begin 
readln(A); 
if A>=18 then writeln('Совершеннолетний') else writeln('Несовершеннолетний');
End.