Составить программу, считывает возраст, если он меньше 18, выводит сообщение несовершеннолетний в противном случае совершеннолетний

Question

Леонина

3 апреля, 08:20

+3

Ответы (1)

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

Васиилла · Answer 1

Var

a:integer;

begin

Read (a) ;

if (a < 18) then Writeln ('Вы не совершеннолетний')

else Writeln ('Вы совершеннолетний')

end.