Program nazvanie;
Uses Crt;
Var x: integer;
y: real;
Begin
write('Введите x ')';
read(x);
y:=1/x;
write('y = ', y);
end.
Объяснение:
