Так? var x:real; label l; begin x:=-4; l:writeln(x,' - ',0.5*x+8); x+=0.5; if x<= 4 then goto l<br>end.