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.
Объяснение:
Я смог
