Решите задачу А прошуПаскаль

Question

Решите задачу А прошу
Паскаль

---

Answer 1

Var x,y: Integer;
begin
writeln('Введите x');
readln(x);
if x<0 then y:=x+x else<br>if x>=0 then y:=100*x;
writeln(y);
end.