Question

Answer 1

uses crt;

var a,b,c,ln:integer;

begin

clrscr;

readln(a,b,c);

ln:=a;

if ln<=b then ln:=b;

if ln<=c then ln:=c;

write(ln);

readln;

end.

Answer 2

var a,b,c,max:int64;

begin

readln(a,b,c);

max:=a;

if b=>max then max:=b;

if c=>max then max:=c;

write(max);

readln;

end.