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

Var

p:real;

k:integer;

begin

Write ('Грузоподъемность судна: ') ; Read (p) ;

Write ('Количество судов: ') ; Read (k) ;

Writeln ('Грузоподъемность флотилии составит ', p*k)

end.

Пример

Грузоподъемность судна: 12000

Количество судов: 7

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