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

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