function max (a, b, c:integer):integer;
begin
if (a > b) and (a > c) then
max:= a else
if (b > a) and (b > c)
then max:= b
else max:= c;
end;
var
a,b,c,k,l,m,n:integer;
begin
a:=10;
b:=20;
c:=50;
k:=max(a,b,c);
writeln('max 1 gruppy=',k);
a:=100;
b:=200;
c:=75;
l:=max(a,b,c);
writeln('max 2 gruppy=',l);
writeln('vvedite chisla a,b,c');
read(a,b,c);
m:=max(a,b,c);
writeln('max 3 gruppy=',m);
n:=max(k,l,m);
writeln('max vseh grupp=',n);
readln;
readln;
end.