var x,y:real;
begin
writeln('y = 1/(2-x)');
readln(x);
if x=2 then
repeat
  begin
  writeln('Знаменатель дроби равен нулю. Введите другое значение для Х:');
  readln(x);
  end;
until x<>2;
y:=1/(2-x);
writeln('y=',y);
end.