Question

Задача по информатике. Паскаль.

Answer 1

var a,b,c,max:integer;
begin
read(a,b,c);
if (a>b) and (a>c) then max:=a;
 if (b>c) and (b>a) then max:=b; 
if (c>a) and (c>b) then max:=c; 
writeln(max);
end.