Написать программу на языке паскаль. 1.написать программу из 3 введенных значений.найти максимальное 2.написать программу запрашивающую номер класса и выводящееся сообщения если 1-4 класса-младшая школа,5-9-средняя,10-11-старшая 3.создать программу запрашивающую произвольное число,если введенное значение больше нуля ,программа должна вывести модуль данного типа

1)
program gt;
var a,b,c,max:real;
begin
readln(a,b,c);
max:=a;
if(b>max)then max:=b;
if(c>max)then max:=c;
writeln(max);
end.
2)
program gt2;
var n:integer;
begin
read(n);
if(n>0)and(n<5)then writeln('Младшая');
if(n>4)and(n<10)then writeln('Средняя');
if(n>9)and(n<12)then writeln('Старшая');
end.
3)
Условие непонятное 
Приведи пару примеров потом решу