От острова Буяна до царства славного Салтана месяц (30 дней) пути. Капитан корабля записывает в вахтенный журнал количество миль,

Условные обозначения:
Day[1..30] - массив, в котором указывается количество миль, пройденных за один из 30-ти дней.
Ten[1..3] - массив, в котором будет храниться пройденный путь за десятидневкую

program z83;
var Day: array[1..30] of integer;
Ten: array[1..3] of integer;
i, a: integer;
BEGIN

for i:=1 to 30 do begin
write('Введите пройденный путь за ',i, ' день: ');
readln(Day[i]);
if (i<=10) then Ten[1]:=Ten[1] + Day[i];
if (i>10) and (i<=20) then Ten[2]:=Ten[2] + Day[i];
if (i>20) and (i<=30) then Ten[3]:=Ten[3] + Day[i]
end;

if (Ten[1]>Ten[2]) and (Ten[1]>Ten[3]) then
writeln('В первую десятидневку пройден больший путь, где пройдено ',Ten[1],' миль.');
if (Ten[2]>Ten[1]) and (Ten[2]>Ten[3]) then
writeln('Во вторую десятидневку пройден больший путь, где пройдено ',Ten[2],' миль.');
if (Ten[3]>Ten[1]) and (Ten[3]>Ten[2]) then
writeln('В третью десятидневку пройден больший путь, где пройдено ',Ten[3],' миль.');

END.
- В первой части кода в которой находится ниже мы вводим количество пройденных миль за каждый день и складываем пройденный путь за 1, 2 и 3-ю десятидневку.
- Во второй части мы сравниваем три пройденные десятидневки и выводим на экран какая десятидневка прошла самый больший путь, а также выводим количество пройденных миль за эту десятидневку.