Question

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

Answer 1

1) var x,y: Integer;
begin
writeln('Введите x и y');
readln(x,y);
if x>y then writeln(x*x) else
if x<y then writeln(y*y) else
writeln(x*x);
end.

2) var i,n,pol,otr: Integer;
begin
for i:=0 to 4 do
begin
writeln('Введите число');
readln(n);
if n>0 then Inc(pol);
if n<0 then Inc(otr);
end;
writeln('Положительных чисел: ',pol);
writeln('Отрицательных чичел: ',otr);
end.