Question

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

Answer 1

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