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

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

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