Используя инструмент сноски и концевой сноски разработать документ под названием «Список учебной группы». Составить нумерованный список своей группы в алфавитном порядке (фамилия, имя). Каждый элемент списка должен иметь сноску, в которой отмечается год рождения учащегося. Весь документ заканчивается концевой сноской, в которой указывается автор документа.

Var  
i, j, k : integer; 
 a : array [0..9,0..9] of char; 
procedure U(i,j:integer);  
var c : char; 
begin 
 c:=a[i,j]; a[i,j]:=' ';  
if (c='W')and(a[i+1,j]='B') then U(i+1,j);
  if (c='B')and(a[i+1,j]='W') then U(i+1,j); 
 if (c='W')and(a[i-1,j]='B') then U(i-1,j); 
 if (c='B')and(a[i-1,j]='W') then U(i-1,j); 
 if (c='W')and(a[i,j+1]='B') then U(i,j+1);  
if (c='B')and(a[i,j+1]='W') then U(i,j+1); 
 if (c='W')and(a[i,j-1]='B') then U(i,j-1); 
 if (c='B')and(a[i,j-1]='W') then U(i,j-1); 
end; 
begin  
assign(input,'input.txt');
reset(input); 
 assign(output,'output.txt');
 rewrite(output);  
for i:=1 to 8 do begin  for j:=1 to 8 do
 read(a[i,j]); 
 readln  
end;  
for i:=1 to 8 do
 begin 
 a[0,i]:=' '; a[9,i]:=' ';  a[i,0]:=' '; a[i,9]:=' '  
end; 
 k:=0; 
 for i:=1 to 8 do 
 for j:=1 to 8 do 
 if a[i,j]<>' ' then
begin 
 k:=k+1; U(i,j)  
end;  
write(k); 
 close(output) 
end. 

1 Посмотрите на данное вам число и определите количество его цифр. Пример: напишите 5827 в развернутом виде. Прочитайте число вслух: пять тысяч восемьсот двадцать семь. Обратите внимание, что в этом числе есть четыре цифры. В результате развернутая форма будет содержать четыре слагаемых. 2 Перепишите число в виде суммы его цифр, оставив между ними некоторое расстояние, чтобы умножить каждую цифру на некоторую цифру (об этом далее). Пример: 5827 перепишите так: 5 + 8 + 2 + 7 3 Цифры числа расположены в определенных позициях, которые соответствуют (справа налево) единицам, десяткам, сотням, тысячам и так далее. Определите название позиции и ее значение для каждой цифры (справа налево). Пример: так как в данном числе четыре цифры, то вам нужно определить названия четырех позиций (справа налево). 7 соответствует единицам (значение = 1). 2 соответствует десяткам (значение = 10). 8 соответствует сотням (значение = 100). 5 соответствует тысячам (значение = 1000). 4 Умножьте каждую цифру данного числа на значение соответствующей ей позиции. Пример: [5 * 1000] + [8 * 100] + [2 * 10] + [7 * 1] 5 Запишите окончательный ответ, так как сумма произведений является развернутой формой исходного числа. Пример: развернутая форма 5827: 5000 + 800 + 20 + 1