Сформировать одномерный массив из элементов массива T(4,4),умноженных на 0,25

var   a:array [1..16] of real;   t:array [1..4,1..4] of integer;   i,j,k:byte; begin   randomize;   for i:=1 to 4 do begin    for j:=1 to 4 do begin     t[i,j]:=random(9)+1;     write (t[i,j]:4);    end;    writeln;   end;   k:=1;    for i:=1 to 4 do    for j:=1 to 4 do begin     a[k]:=t[i,j]*0.25;     write (a[k],' ');      k:=k+1;     end;   readln; end.