Написать программу рассчитывающую, сколько времени проработали N комбайнов - Pascal ABC

Формулировка задачи:

Решите пожалуйста с помощью цикла. !!!Обязательно решение с пред и пост условием!!! Заранее спасибо, нужно закрыть зачеты, осталась только эта задача №2 В поле по уборке урожая работало N комбайнов. Первый комбайн работал m ч., а каждый следующий на 20 минут больше, чем предыдущий. Написать программу рассчитывающую, сколько времени проработали N комбайнов.

Решение задачи: «Написать программу рассчитывающую, сколько времени проработали N комбайнов»

Листинг программы

program pr;
 
var
  n, i, c, x: integer;
  sum, m: real;
 
begin
  writeln('Введите количество комбайнов');
  readln(n);
  writeln('Введите сколько часов работал 1 комбайн');
  readln(m);
  m := m * 60;    // преобразовываем часы в минуты для удобства подсчёта  
  writeln;
  sum := 0;
  i := 1;
  while i <= n do
  begin
    sum := sum + m;        
    m := m + 20;         // каждый последующий работа на 20 минут дольше предыдущего 
    i := i + 1;    
  end;
  writeln;
  writeln('Комбайны проработали: ', sum / 60, ' ч.');    // получаем обратно часы (разделив количество минут на 60)
end.

Объяснение кода листинга программы

В программе объявлены переменные: n, i, c, x, sum, m.
Программа запрашивает у пользователя количество комбайнов и количество часов работы одного комбайна.
Значение переменной m умножается на 60, чтобы перевести часы в минуты, так как в программе используется подсчет времени в минутах.
Инициализируется переменная sum значением 0.
Запускается цикл while, который выполняется, пока переменная i меньше или равна переменной n.
Внутри цикла переменная sum увеличивается на значение m, а переменная m увеличивается на 20. Это обеспечивает увеличение времени работы каждого последующего комбайна на 20 минут.
После каждой итерации цикла значение переменной i увеличивается на 1.
По завершении цикла выводится сообщение о том, сколько часов проработали все комбайны, с учетом перевода времени из минут в часы, разделив количество минут на 60.