Составить программу вычисления выражения: {3*x, если x ≤ 0 y= {1/x , если x > 0 , надо на !

program p1;

var  

  x:integer;

  y:real;

begin

  WriteLn('Введите число');

  ReadLn(x);

  if x <= 0 then

    begin

      y:=3*x;

    end;

   if x > 0 then

    begin

      y:=1/x;

    end;

    WriteLn(y);

end.