Столбики, Вывести 44 числа по 11 в 4 столбиках Опции

[DaNTeS]

В этой (приклеплённой) задачке у меня не получается сделать так чтобы числа выводились по столбикам,
выводятся блин по 11 в одну линию, исправьте ошибку пожалуйста буду бесконечно благодарен....а то уже замучался.....

Добавлено:
Первая процедура*

[klem4]

По идее так:

Procedure fibanachi(n:longint;var r:longint);
Var
i,f1,f2,j:longint;
Begin
f1:=1;
f2:=1;
for j:=1 to 4 do Begin
  writeln;
  for i:=1 to 11 do Begin
    r:=f1+f2;
    f2:=f1;
    f1:=r;
    Write(r, ' ');
  end;
end;

Но числа у тебя слишком разного диапазона от 2-х значных до 10-ти значных, так что красиво это выглядеть врятли будет, можно конечно попробовать форматированно выводить (Write(r:11);) но это мало помогает.

[DaNTeS]

klem4 , большое спасибо систему понял