Вычислить в pascal abc: y=1/(2-x) с оператором условного перехода.

var y,x:real;

begin

readln(x,y);

if 1=1 then y:=1/(2-x);

writeln(y);

end.

Program Program1;
var
x:real;
begin
write('Введите значение x: ');
readln(x);
if 2-x=0 then writeln('Деление на ноль.')
else
writeln('y=',1/(2-x));
end.