Помогите с паскалем

1. написать алгоритм нахождения максимального среди 4 целых чисел.

2. написать алгоритм проверки: имеются ли среди трех целых чисел два положительных значения.

3. написать алгоритм проверки: лежит ли точка с координатами х; у в первой координатной четверти?

Var a, b, c: integer;

begin

for a : = 1 to 4 do

begin

readln (b) ;

if b > c then c:=b;

end;

end.

var a, b, c: integer;

begin

for b:=1 to 3 do

begin

readln (a) ;

if a > 0 then c: = c+1;

end;

if c = 2 then write ('est') ;

end.

var x, y:integer;

begin

readln (x, y) ;

If (x>0) and (y>0) then writeln ('est') ;

end.

Все писал с телефона