program n1;var x,y:real;beginwriteln('Введите x');read(x);if x>=2 then y:=2*x+3 elsey:=(x+1)/(x-2);writeln('Значение функции равно ',y);end.
program n1;
var x,y:real;
begin
writeln('Введите x');
read(x);
if x>=2 then y:=2*x+3 else
y:=(x+1)/(x-2);
writeln('Значение функции равно ',y);
end.