program sandauga;
var a,b,san : real; {nes kad galetum per kableli daugint}
begin
  WriteLn('iveskite pirma skaiciu: ');
  Readln (a);
  WriteLn('iveskite antra skaiciu: ');
  Readln (b);
  san:=a*b;
  writeln ('atsakymas : ',san:2:2);
  readln;
end.