for i:=1 to 90 do
begin
    if i mod 15=0 then writeln();
    write(a[i],' ');
end;