Program PR1;uses crt;var x:real;beginclrscr;writeln('Vvedite x');readln(x);writeln('Y=',1/(2-x));end.
Program PR1;
uses crt;
var x:real;
begin
clrscr;
writeln('Vvedite x');
readln(x);
writeln('Y=',1/(2-x));
end.