Program n_1;
Var a, b, x, y: real;
Begin
Writeln('Введите a')
readln (x);
Writeln('Введите b')
readln (b);
y:=3*x*x+x-4;
While x<=b do begin
x:=x+0,1;
Writeln('x=',x:3:2); -что будет на экране после выполнения этого оператора?
y:=3*x*x+x-4;
Writeln ('y=',y:3:2)
end
end.