Написать программу для сказки «Репка». Словесный алгоритм

Буфер обмена

В ОС Windows существует буфер обмена, в котором можно сохранить выделенную часть текста или рисунок. Каким образом это сделать мы поговорим в статье рубрики «Как создать документ в Microsoft Word 2007». В буфере обмена Microsoft Office можно сохранить несколько объектов (частей текста и(или) рисунков), причем переносить их можно между программами Microsoft Office, например взять из Microsoft Word и вставить в Microsoft PowerPoint. Вкладка «Буфер обмена»  в пункте меню «Главное» программы Microsoft  PowerPoint аналогична. Разберем вкладку «Буфер обмена». 

Var
  A: array [1..10] of integer;
  i, count: byte;
  mult: integer;
begin
writeln('Сгенерированный массив.');
randomize;
for i := 1 to 10 do
begin
  A[i] := random(11) + 10;
  writeln(A[i]:4);
end;

count := 0;
mult := 1;

for i := 1 to 10 do
  if A[i] mod 3 = 0 then
  begin
    count := count + 1;
    mult := mult * A[i];
  end;
 
if (count = 1) or (count = 0) then  
  writeln('Количество элементов кратных 3 = ', count)
else
  writeln('Количество элементов кратных 3 = ', count, ' Произведение этих элементов = ', mult);
readln;
end.