pascal...алгоритм бы((...

[павля]

слёзно прошу составить алгоритм к этой вот программке...

дано натуральное n. Записать в файл d целые числа b1,...,bn, где при i=1,2,...,n значение bi равно i(во второй).

VAR
 f:TEXT;
 i,j,N:Word;
BEGIN
 Assign(f,'C:\out.txt');
 ReWrite(f);
 Write('N(<256)= ');
 ReadLn(N);
 If N>10 then
  For i:=0 to (N div 10)-1 do
   begin
    For j:=1+i*10 to 10+i*10 do
     Write(f,j*j:6);
    WriteLn(f);
   end;
 For j:=1+(N div 10)*10 to N do
  Write(f,j*j:6);
 WriteLn(f);
 Close(f);
END.

искренне благодарю за помощ...


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.