Дано два вещественных числа a и b. найти произведение целых частей этих чисел.

На Паскаль абс:
var a,b:real;
 begin
  readln(a,b);
  writeln(trunc(a)*trunc(b));
 end.