Изменение программы(Паскаль)

[prs58]

Как сделать так, чтоб при результате цифры 1,2,3 и тд. вводились не с 1 а со 2 позиции, но при этом цифра 10 с первой позиции?

Код программы:

uses crt;
var x, a, b, f, h: real; i: integer;
const y=1; z=1;
begin
x:=-2-1/2;
h:=1/2;
writeln ('№', '      ', 'x', '      ', 'f(x)');
for i:=1 to 18 do
write ('-');
writeln;
for i:=1 to 10 do
begin
x:=x+h;
if (x<y) then f:=(sqrt(abs(x-1))-sqrt(abs(y)))/(1+2*x*x+cos(x)) else
if(x>=y) and (x<=z) then f:=(sqrt(abs(x-1))-sqrt(abs(y)))/(1+2*x*x+cos(x))+(x*x*(arctan(z)+y)) else
if (x>z) then f:=x*x*(arctan(z)+y);
writeln ( i,'    ', x:2:1, '    ',f:4:1);
end;
end.

[prs58]

Кто знает?Не получается у меня никак.(

[Serge_Bliznykov]

достаточно всего навсего отформатировать i при выводе...

writeln ( i:2,'    ', x:2:1, '    ',f:4:1);

[prs58]

Хм,а я думал здесь нужно что-то добавить

write ('-');
writeln;