Объяснение:
Program p1;
var x,y:real;
begin
writeln('введи x:'); readln(x);
if x<4 then y:=2*sqr(x)-7*x+3;
it x>5 then y:=x+1
else y:=abs(6-x);
writeln( 'x=',x:0:2,'y=',y:10:2);
end.
