Question

ДАЮ 30 БАЛЛОВ! Составить программы:1.Введите с клавиатуры возраст человека (от 1 до 25) и выведите на экран сообщение о его статусе (ребёнок, ученик или студент). 2.Численность населения в некотором городе каждый год увеличивается на 2% по отношению к предыдущему городу. На данный момент в городе проживает F человек. Какова будет численность населения города через 5 лет. ​

Answer 1

program vozrast;

type

vazrast=1..25;

var

v:integer;

begin

read(v);

if v<7 then write('Ребёнок')

else

if v>18 then write('Студент')

else

write('Школьник');

readln;

end.