program ships;

var
p, k, answer: integer;

Begin
Writeln('Введите грузоподъёмность судна (в центнерах): ');
Read(p);
Writeln('Введите количество судов: ');
Read(k);

answer := k*p;
Writeln('Грузоподъёмность флотилии ', answer ,' центнеров.')
end.