Составить программы:1.Введите с клавиатуры возраст человека (от 1 до 25) и выведите на экран сообщение о его статусе (ребёнок, ученик или студент). 2.Численность населения в некотором городе каждый год увеличивается на 2% по отношению к предыдущему городу. На данный момент в городе проживает F человек. Какова будет численность населения города через 5 лет.
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.