ПОМОГИТЕ СРОЧНО ПОЖААААААААЛУЙСТА!!!!!!!!!!
ПО ИНФОРМАТИКЕ:
1) Даны 2 числа (x, y) большее число увеличить в 2 раза.
ЗАДАНИЕ 2
Ввести 5 раз числа и определить сколько положительных чисел или отрицательных
(5 раз readln)

1) var x,y: Integer;beginwriteln('Введите x и y');readln(x,y);if x>y then writeln(x*x) elseif x<y then writeln(y*y) elsewriteln(x*x);end.2) var i,n,pol,otr: Integer;beginfor i:=0 to 4 dobeginwriteln('Введите число');readln(n);if n>0 then Inc(pol);if n<0 then Inc(otr);end;writeln('Положительных чисел: ',pol);writeln('Отрицательных чичел: ',otr);end.