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

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

Оцени ответ

Загрузить картинку