Грузоподъемность одного судна- Р центнеров. Какова грузоподъемность флотилии, составленный из К таких судов. В паскале

var  p:real;  k:integer;    begin  Write('Грузоподъемность судна: '); Read(p);  Write('Количество судов: '); Read(k);  Writeln('Грузоподъемность флотилии составит ',p*k)end.ПримерГрузоподъемность судна: 12000Количество судов: 7Грузоподъемность флотилии составит 84000