program p1;
var a,b,c,d: integer;
begin
writeln ('введи a, b, c');
read (a, b, c);
if a>b then d:=a
else d:=b;
if c>d then d:=c;
writeln ('', d);
end.
program p1;
var a,b,c,d: integer;
begin
writeln ('введи a, b, c');
read (a, b, c);
if a>b then d:=a
else d:=b;
if c>d then d:=c;
writeln ('', d);
end.