Сделаю все кроме 2((
/////////////////////////////////////
1:
var
q: Integer;
begin
writeln(Введите число:);
readln(q);
q := q - 5;
writeln('Всего', q, 'чисел больше 5');
end.
3:
var
l, p: Integer;
a, b, c, d, f: Integer;
q, w, e, r, t: Integer;
begin
l := 1200;
writeln('Введите количество первоклассников в 1 году');
readln(q);
writeln('Введите количество первоклассников в 2 году');
readln(w);
wreadln('Введите количество первоклассников в 3 году');
readln(e);
writeln('Введите количество первоклассников в 4 году');
readln(r);
writeln('Введите количество первоклассников в 5 году');
readln(t);
l := l + q + w + e + r + t;
writeln('Введите количество выпускников в 1 году');
readln(a);
writeln('Введите количество выпускников в 2 году');
readln(b);
writeln('Введите количество выпускников в 3 году');
readln(c);
writeln('Введите количество выпускников в 4 году');
readln(d);
writeln('Введите количество выпускников в 5 году');
readln(f);
p := a + b + c + d + f;
l := l - p;
writeln(l, 'Учеников будет через 5 лет');
end.