Question

Ребят, помогите пожалуйста
не втыкаю что тут, да и как
ИНФОРМАТИКА, 7 КЛАСС​

Answer 1

Ответ:

Объяснение:

program z1n1;

var x,y:real;

begin;

writeln('введите x');

readln(x);

if (x>0) then begin

y:=x;

writeln('y=',y);

end;

if (x<=0) then begin

y:=1/x;

writeln('y=',y);

end;

end.