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('Младшая');<br>if(n>4)and(n<10)then writeln('Средняя');<br>if(n>9)and(n<12)then writeln('Старшая');<br>end.
3)
Условие непонятное
Приведи пару примеров потом решу