Расчет коэффициента К широты ассортимента товаров по формуле - Pascal

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

Помогите написать программу. Расчет коэффициента К широты ассортимента товаров по формуле где n - количество проверок; Pi - розничная цена товара i - того наименования; Ti - затраты труда на рубль оборота товара i - того вида. Mi - количество разновидностей товаров, предусмотренных ассортиментным минимумом;

Решение задачи: «Расчет коэффициента К широты ассортимента товаров по формуле»

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

var
  s1, s2, p, t, m: real;
  n: integer;
begin
  Writeln('Введите построчно данные о товарах (P T M), 0 - завершение ввода:');
  n:=1;
  repeat
    Write(n:4,': '); Read(p);
    if p=0 then break;
    ReadLn(t,m);
    s1:=s1+p*m; s2:=s2+p*m*t;
  until false;
  WriteLn('K = ', s1/s2);
end.

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

Объявлены переменные: s1, s2, p, t, m (тип real)
Объявлена переменная n (тип integer)
Выводится сообщение с просьбой ввести данные о товарах
Переменная n инициализируется значением 1
В цикле while истина запрашиваются данные о товарах (P T M), 0 - завершение ввода
Если P=0, то цикл прерывается
В цикле считываются значения P, T, M
Значение P умножается на M и добавляется к s1
Значение P умножается на M умножается на T и добавляется к s2
После окончания цикла выводится сообщение с коэффициентом К равным s1/s2