Определить мощность, потребляемую насосом - Pascal

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

Я не понимаю как правильно это реализовать если нужно вводить значения начальные и конечные двух переменных. А потом еще и по формуле считать. Помогите, пожалуйста.

Решение задачи: «Определить мощность, потребляемую насосом»

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

const k=60e-5;
      ny=0.85;
procedure moshnost(v:byte);
var p,w:integer;
    n:real;
begin
writeln('Объем насоса ',v,' см^3');
for p:=2 to 5 do
 begin
  w:=1200;
  while w<=2400 do
   begin
    n:=p*v*w/k/ny;
    writeln('p=',p,' w=',w,' N=',n:10:0);
    w:=w+400;
   end;
 end;
end;
begin
moshnost(32);
moshnost(46);
moshnost(58);
moshnost(60);
end.

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

Объявляется константа k со значением 60e-5.
Объявляется переменная ny с значением 0.85.
Объявляется процедура moshnost с параметром v типа byte.
Объявляются переменные p и w типа integer, а также переменная n типа real.
Выводится сообщение о объеме насоса, который равен значению параметра v.
Запускается цикл for от 2 до 5.
В цикле for переменной w присваивается значение 1200.
Запускается цикл while, который выполняется, пока w меньше или равно 2400.
Вычисляется значение переменной n по формуле p*v*w/k/ny.
Выводятся значения переменных p, w и n с определенным форматированием.
Переменной w увеличивается на 400.
Вызывается процедура moshnost для значений параметров 32, 46, 58 и 60.