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

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


Грузоподъемность судна: 12000
Количество судов: 7
Грузоподъемность флотилии составит 84000