Question

Составьте программу, запрашивающую возраст и отвечающий "Привет друг", если возраст введён меньше 16 лет, и отвечающую "Не знаю тебя" в противном случае. Срочно!!!

Answer 1

Program p1; 

Var a: integer; 

Begin 
Writeln('Введите свой возраст: '); 
Read(a); 

If a<16 then 
Writeln('Привет друг'); 
else 
Writeln('Не знаю тебя'); 

End.