вычислить у = 1/(2-x) в pascal abc СРОЧНО!

Question

вычислить у = 1/(2-x) в pascal abc СРОЧНО!

Answer 1

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