1) блок ввода-вывода
2) блок вычислений
3) блок начала алгоритма
4) проверка условий
Var
a:array [1..100] of integer;
n,i,s1,s2:integer;
begin
writeln('введите кол-во эл-тов массива');
readln(N);
for i:=1 to n do
begin
read(a[i]);
if i mod 2<>0 then s1:=s1+a[i]
else s2:=s2+a[i];
end;
writeln;
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:7);
writeln('сумма элементов с нечетными номерами',s1);
writeln('сумма элементов с четными номерами',s2);
end.
*****************C case*****************
Var
a:integer;
<span>Begin </span>
<span> Write('Введите число от 5 до 9: '); readln(a); </span>
<span> case a of </span>
5:writeln('Вы ввели число "пять"');
6:writeln('Вы ввели число "шесть"');
7:writeln('Вы ввели число "семь"');
8:writeln('Вы ввели число "восемь"');
9:writeln('Вы ввели число "девять"')
end;
readln
End.
*****************С if*****************
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
if a=5 then writeln('Вы ввели число "пять"');
if a=6 then writeln('Вы ввели число "шесть"');
if a=7 then writeln('Вы ввели число "семь"');
if a=8 then writeln('Вы ввели число "восемь"');
if a=9 then writeln('Вы ввели число "девять"');
readln
<span>End.</span>
Источник иформации в данном случае это поле богатое нектаром, приёмник - пчела, канал связи зрительный, типа пчёлы видят её знаки и движения.
но вообще тут можно по разному рассматривать