Матрицы, задачка на Паскале Опции

[Kos]

Народ, помогите плиз, надо решить задачку, а в матрицах я нуб (во всяком случае на Паскале).
Даны действительные числа а1, ..,а64;
Получить действительную квалратную матрицу порядка 8, элементами которой являются числа а1,...а64, расположенные по схеме:

[klem4]

Схема у тебя конечно крутая ... может так ?

uses crt;

const
     n=16;

var
   a : array[1..n] of integer;
   b : array[1..round(sqrt(n)), 1..round(sqrt(n))] of integer;
   i,r,c : byte;
begin
   clrscr;
   r := 1;
   c := 0;
   for i := 1 to n do begin
      readln(a[i]);
      inc(c );
      if c > (round(sqrt(n))) then begin
         c := 1;
         inc(r );
      end;
      b[r,c] := a[i];
   end;

   writeln;

   for r := 1 to round(sqrt(n))  do begin
      writeln;
      for c := 1 to round(sqrt(n))  do write(b[r,c]:3,'  ');
   end;

   readln


end.

[Kos]

может так ?

Klem4, спасибо большое, вы единственный форум который не выпендривается, загружая непонятными определениями, а реально помогает, спасибо ещё раз.

[Prime]

Klem4, спасибо большое, вы единственный форум который не выпендривается, загружая непонятными определениями, а реально помогает, спасибо ещё раз.

А у меня прога не работает !