Получение алгоритма для обработки величин с реализацией на языке программирование. работу нужно выполнить в программе 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< min then               begin                  min: =t; // найдено новое минимальное значение                  daymin: =i; // запоминаем соответствующий номер дня              end;           sum: =sum+t; //суммируем все значения t      end;   writeln();   writeln('максимальная температура была на ',daymax,'-й день: ',max,' градусов');   writeln('минимальная температура была на ',daymin,'-й день: ',min,' градусов');   writeln('средняя температура за 14 дней: ',sum/14,' градусов'); end.