pascal
Объяснение:
var
a, b, c: integer;
begin
Write('Введите a,b и c : ');
ReadLn(a, b, c);
if (a > b) and (a > c) then WriteLn(a)
else if b > c then WriteLn(b)
else WriteLn(c);
end.
