Получение алгоритма для обработки величин с реализацией на языке программирование. Работу нужно выполнить в программе pascal ABC. Дайте пожалуйста готовый, не сложный для того, чтобы выучить алгоритм. Буду очень благодарен.

Очень простой алгоритм:   Program Alexey; {программа запрашивает у пользователя значения ежедневной температуры за 14 дней, и выводит максимальное и минимальное значения и в какие дни температруа достигала этих значений, а также вычисляет среднюю температуру за 2 недели} uses crt; const n=14; var   i, daymax, daymin:integer;   t,max,min,sum:real; begin   writeln('Введите температуру за каждый день');   write('День 1-й: T = ');   readln(t);   max:=t;   min:=t;   sum:=t;   for i:=2 to 14 do //организуем цикл     begin       write('День ',i,'-й: T = ');       readln(t);       if t>max then         begin           max:=t; // найдено новое максимальное значение           daymax:=i; // запоминаем соответствующий номер дня         end;       if t