Что можно изменять в процессе форматирования абзацев​

Формирование абзацев придусматривает: 1)установку ширины абзаца2)установку абзацного отступа3)установку выравнивания строк: по правому краю, по левому краю, по центру, по ширине .4)установку межстрочного интервала

Честно, не поняла ваш код вообще. Почему нет цикла? Предлагаю свое решение:
1)Cначала заполняем массив случайными числами от 2 до 5 (включительно)
2)Потом выводим его (Для проверки)
3) Потом считаем оценки. Но сначала нужно обнулить переменные( В самом начале это делали), а то получится кака (:

program N_0547847;
var
    b, c, d, f, i:integer;
    a: array [1..20] of integer;
begin;
randomize;
b:=0; c:=0; d:=0; f:=0;
for i:=1 to 20 do begin
  a[i]:=random(4)+2; 
  write(a[i],' '); end; 
writeln;
for i:=1 to 20 do begin
    if a[i]=2 then  b:=b+1;
    if a[i]=3 then  c:=c+1;
    if a[i]=4 then  d:=d+1;
    if a[i]=5 then   f:=f+1;
end;
writeln('Двоек: ', b); 
writeln('Троек: ', c); 
writeln('Четверок: ',d);
writeln('Пятерок: ',f);
end.   

Для робота в системе Кумир такие программы например подойдут: (размеры поля- любые (от 1x1), размеры узоров настраиваются- задавайте любое смещение между линиями пунктирными и линиями клеток (начиная от 1, т.е. без зазоров), любой размер пунктира- задаётся длина самого штриха пунктира и его длина вместе с пробелом)

1) Закраска всего поля горизонтальными пунктирными линиями:

использовать Робот

цел г,в

алг |рисуем пунктирные линии (начальное положение - левый верхний угол)

нач

в:=0

нц

г:=0

нц пока mod(в,3)=0 |смещение до следующей линии

если mod(г,3)<2 то закрасить всё |длина цикла / длина пунктира

если справа свободно то вправо иначе выход всё

г:=г+1

кц

если снизу свободно то вниз иначе выход всё

нц пока слева свободно

влево

кц

в:=в+1

кц

кон

2) Закраска только углов поля:

использовать Робот

алг |закраска всех углов (начальное положение - левый верхний угол)

нач

закрасить

нц пока справа свободно

вправо

кц

закрасить

нц пока снизу свободно

вниз

кц

закрасить

нц пока слева свободно

влево

кц

закрасить

кон

3) Закраска всего поля узором в клетку:

использовать Робот

цел г,в

алг |рисуем клетки (начальное положение - левый верхний угол)

нач

в:=0

нц

г:=0

нц |смещение до следующей линии (по горизонтали и вертикали)

если mod(г,3)=0 или mod(в,3)=0 то закрасить всё

если справа свободно то вправо иначе выход всё

г:=г+1

кц

если снизу свободно то вниз иначе выход всё

нц пока слева свободно

влево

кц

в:=в+1

кц

кон

Начальное положение везде- левый верхний угол. Если нужно другое- то либо в программе меняйте все команды верх-низ местами (или даже лев-прав если надо), либо в начале программы можно добавить циклы приведения робота откуда угодно в верхний левый угол.

Что то типа:

нц пока слева свободно; влево кц

нц пока сверху свободно; вверх кц