От острова Буяна до королевства славного Салтана месяц (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 (ilt;=10) then Ten[1]:=Ten[1] + Day[i];
if (igt;10) and (ilt;=20) then Ten[2]:=Ten[2] + Day[i];
if (igt;20) and (ilt;=30) then Ten[3]:=Ten[3] + Day[i]
end;

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

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