Вычислить y=100/x, если x< 0; y=100*x, если x> =0, с программы паскаль

Var
x,y:integer;
begin
writeln('Введите число');
readln(x);
if x<0 then
y:=100/x
else
y:=100*x;
writeln('Полученное число =', y);
end.