вычеслите значение функции U=x+1 на отрезке от 0 до 10 с шагом 0.3.

Var x : Real;Begin  x:=0;  While x<=10 do  Begin   Writeln('x = ',x:4,'      U = ',x+1:4);   x:=x+0.3;  end;end.