Ш1А - школа (1 - кол), ЗА1КА - заколка, 1БЕГ - разбег (1 - раз), 1УМ - разум, 2Д - парад (2 - пара)
103 а)
Карп
Кара
Кора
Коза
Б)
Вол
Кол
Кот
Кит
1125*8= 9000 - всего символов
9000/5/25=72 символа в строке
Я не знаю конкретно что вы используете как условные обозначения (я взял TRUE and FALSE) у вас же могут быть как вариант (1 и 0).
1 это TRUE
0 это FALSE
var a:array[1..10] of integer;
s,s1:longint;
i,n:integer;
begin
n:=20;
s:=0; s1:=0;
for i:=1 to n do
begin
writeln('Vvedite element ',i);
read(a[i]);
end;
for i:=1 to n do
begin
write(a[i]:4);
end;
writeln;
for i:=1 to n do
begin
begin
if (a[i] mod 2=0) then s:=s+a[i];
end;
begin
if (a[i] mod 5=0) then s1:=s1+a[i];
end;
end;
writeln('Summa kratnix 2 = ',s);
writeln('Summa kratnix 5 = ',s1);
end.