Графическое изображение иерархической файловой структуры называется деревом.
Вот хоть бы указывали язык, ей богу.
Паскаль я не знаю, но постарась помочь чем смогу
примерный алгоритм таков
var
space:integer; {Расстояние между квадратами и границами}
a : integer; {сторона квадрата}
rows,columns:integer;{количество строк, столбцов}
i,j:integer;
begin
{Инициализируйте переменные уж как-нибудь сами}
For i:=1 to rows do
begin
For j:=1 to columns do
begin
{рисоватьПрямоугольник(поз X, поз Y, длина, ширина);}
{По позициям начала отрисовки мы пропускаем нужное нам количество
пространства, а именно нужное количество занимаемого места пропусками
и квадратами}
drawRect(space*j+a*(j-1) , space*i + a*(i-1), a,a );
end;
end;
Ответ:
10234 * 157 = 1606738
1606738/8=200842 (остаток 2
)
200842/8=25105 (остаток 2
)
25105/8=3138 (остаток 1
)
3138/8=392 (остаток 2
)
392/8=49 (остаток 0
)
49/8=6 (остаток 1
)
6/8=0 (остаток 6)
1606738 (10) = 6102122 (8)
begin
//1 вариант
for var i := 0 to 100 do
if i.isEven then Print(i);
Println;
//2 вариант
foreach var x in Range(0, 100, 2) do
Print(x)
end.