Объяснение:
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;
end.
