Составить программу вычисления выражения: {3*X, если X ≤ 0Y= {1/X , если X > 0ПОМОГИТЕ...

Question

Составить программу вычисления выражения: {3*X, если X ≤ 0Y= {1/X , если X > 0ПОМОГИТЕ ПОЖАЛУЙСТА, НАДО НА ЗАВТРА!!!

Answer 1

program p1;

var  

  x:integer;

  y:real;

begin

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

  ReadLn(x);

   

  if x

    begin

      y:=3*x;

    end;

     

   if x > 0 then

    begin

      y:=1/x;

    end;

     

    WriteLn(y);

end.