program Project9; {$APPTYPE CONSOLE} var P,N:integer; begin writeln('Skilki vajyt odyn pidruchnyk'); readln(P); writeln('Skilki pidruchnykiv'); readln(N); writeln('Vaga zbilshytsia na ',trunc(P*N/1000),' kilogram'); readln; end.