35 баллов! Информатика блох-схемы! Очень надо1)Написать метод нахождения наибольшего

var a,b,c: integer;
begin
for a : = 1 to 4 do
begin
readln ( b) ;
if b gt; c then c:=b;
end;
end.

var a, b, c: integer;
begin
for b:=1 to 3 do
begin
readln ( a );
if a gt; 0 then c:= c+1;
end;
if c =2 then write ('est');
end.

var x,y:integer;
begin
readln(x,y);
If (xgt;0) and (ygt;0) then writeln('est');
end.