program Tiesinisuþdavinys1;
var n, m, daug : integer;
begin
  WriteLn('Kiek klasëje yra mokiniø');
  Readln(n);
  WriteLn('Kiek knygoje yra lapø');
  Readln(m);
  daug := n * m;
  WriteLn('Viso lapø reikës:', daug);
  Readln;
end.