Написать фрагмент программы вывода массива на экран

For i: =1 to 5 do    begin  write(a[i]: 2);       end;

Const   blanks = [' ']; function posblank(s: string; pn, pk: integer): integer; {   ищет в строке s в позициях от pn до pk пробельный символ.   возвращает его позицию в строке или ноль, если таковой символ не найден.   использует подмножество пробельных символов blanks, что позволяет определять   произвольный набор пробельных символов (например, табуляцию и т.д.) } var   p: integer;   flag: boolean; begin   p : = pn;   flag : = true;   while flag and (p < = pk) do   begin       if s[p] in blanks then flag : = false       else p : = p + 1   end;   if p > pk then posblank : = 0   else posblank : = p end; function posnonblank(s: string; pn, pk: integer): integer; {   ищет в строке s в позициях от pn до pk непробельный символ.   возвращает его позицию в строке или ноль, если таковой символ не найден.   использует подмножество пробельных символов blanks, что позволяет определять   произвольный набор пробельных символов (например, табуляцию и т.д.) } var   p: integer;   flag: boolean; begin   p : = pn;   flag: =true;   while flag and (p < = pk) do   begin       if s[p] in blanks then p : = p + 1       else flag : = false   end;   if p > pk then posnonblank : = 0   else posnonblank : = p end; var   s: string;   i, l, k: integer; begin   write('введите строку: ');   readln(s);   l : = length(s);   k : = 0;   i : = posnonblank(s, 1, l);   while (i> 0) and (i < = l) do   begin       k : = k + 1;       i : = posblank(s, i + 1, l);       if i = 0 then i : = l + 1       else i : = posnonblank(s, i + 1, l)   end;   writeln('количество слов в строке равно ', k) end.

1. домик

screen 12

line (200,,320),6,bf

line (240,,240),11,bf

line (280,,120),2

line (280,,120),2

line (200,,120),2

paint (280,80),2

 

2. елка

screen 12

line (280,,120),2

line (280,,120),2

line (200,,120),2

paint (280,80),2

line (280,,200),2

line (280,,200),2

line (200,,200),2

paint (280,160),2

line (280,,280),2

line (280,,280),2

line (200,,2800),2

paint (280,240),2

line (240,,320),6,bf

line (240,,120),8

line (240,,200),8

line (240,,280),8

circle(260,90),15,1

circle(280,100),15,3

circle(300,110),15,4

circle(260,170),15,5

circle(280,180),15,9

circle(300,190),15,11

circle(260,250),15,12

circle(280,260),15,13

circle(300,270),15,14