ответ: Паскаль
program z1;
var
a, b, c: integer;
begin
readln(a, b, c);
if a > b then
writeln(a) end;
if a > c then
if b > c then
writeln(b) end;
if b < c then
writeln(c);
end;
end.
ответ: Паскаль
program z1;
var
a, b, c: integer;
begin
readln(a, b, c);
begin
if a > b then
writeln(a) end;
begin
if a > c then
writeln(a) end;
begin
if b > c then
writeln(b) end;
begin
if b < c then
writeln(c);
end;
end.