Ответ:

1)Var

a: integer;

Begin

Write('Введите число:'); Readln(a);

If a<0 then writeln('Вы ввели Положительное число') else If a>0 then writeln('Вы ввели отрицательное число') else Write('Вы ввели 0');

Readln;

End.

2) var x, y:integer;

Begin

Write('Введите x') ; Readln(x);

If x >=0 then y:=x*x else y=2*x;

Write('y=',y);

Readln;

End.

Объяснение:

Я смог помочь!?