если без циклов то
var a,b,c:integer;
begin
readln(a,b,c);
if(a >= b) and(a>=c) then write(a);
if(b >= a) and(b>=c) then write(b);
if(c >= a) and(c>=b) then write(c);
end
если без циклов то
var a,b,c:integer;
begin
readln(a,b,c);
if(a >= b) and(a>=c) then write(a);
if(b >= a) and(b>=c) then write(b);
if(c >= a) and(c>=b) then write(c);
end