Составив программу, вычеслите значение функции y=1/x.

Var x,y:integer;
begin
writeln('введите x');
readln(x);
y:=1/x;
writeln(y);
end.
если я правильно понял суть задания то так

Var
x:intenger;
y:real;
begin
readln(x);
y:=1/x;
writeln(y);
end.