вычеслите значение функции 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.