Линейные программы.

[yamato_pm]

Присвоить случайным образом значения числовым переменным а1,а2,...,а10,а11,а12. Вывести на экран значения этих переменных следующей таблицей.
a1 a2
a3
a4 a5 a6
a7 a8 a9
помогите пожалуйста...

[Stilet]

var a1,a2,a3,a4,a5,a6,a7,a8,a9:integer;
begin
 a1:=random(100); write(a1);
 a2:=random(100); writeln(a2);
 a3:=random(100); writeln(a3);
 a4:=random(100); write(a4);
 a5:=random(100); write(a5);
 a6:=random(100); writeln(a6);
 a7:=random(100); write(a7);
 a8:=random(100); write(a8);
 a9:=random(100); writeln(a9);
readln;
end;

[yamato_pm]

Спасибо большое)

[Stilet]

Пожалуйста )