program Main;
var
num1, num2: real;
result: integer;
begin
write${}^{\prime }Введитепервоевещественноечисло{:}^{\prime }$;
readln$num1$;
write${}^{\prime }Введитевтороевещественноечисло{:}^{\prime }$;
readln$num2$;

result := trunc$num1\ast num2$;

writeln${}^{\prime }Целаячастьотпроизведениячисе{л}^{\prime },num1{,}^{\prime }{и}^{\prime },num2{,}^{\prime }равн{а}^{\prime },result$;
end.