Question

Вводится число, если это число отрицательное, то его надо умножить на 100, если положительное, то прибавить 100

Answer 1

program s;
var a,b:integer;
begin
readln(a);
if(a < 0 )then a:= a * 100
else a:= a + 100;
writeln(a);
readln;
end.