Else информатика Задача Разработать диалоговое программу которая спрашивает имя...

Question

Else информатика
Задача
Разработать диалоговое программу которая спрашивает имя пользователя и его возраст и определяет в какой вековой категории он относится.
От 1 до 10 лет- ребёнок
От 11 до 15 лет - подросток
От 16 до 20-юноша ( девушка)
От 21 до 30- молодой человек
Больше 31- взрослый

Answer 1

Program pr1;
Var
Age:integer;
Name:char;
Begin
Writeln('Enter your name');
Readln(name);
Writeln('Enter your age');
Readln(age);
If ((age>=1)and(age<=10)) then<br>Writeln(name,', ',age,' years old, kid)
Else
If ((age>=11)and(age<=15)) then<br>Writeln(name,', ',age,' years old, teenager)
Else
If ((age>=16)and(age<=20)) then<br>Writeln(name,', ',age,' years old, man/girl)
Else
If ((age>=21)and(age<=30)) then<br>Writeln(name,', ',age,' years old, young human)
Else
If ((age>=31) then
Writeln(name,', ',age,' years old, adult)
Else
('Error 404');
End.