С клавиатуры вводится 2 вещественных числа. Найдите целую часть от произведения 2х вещественных чисел. (Через паскаль)

Предыдущий
вопрос Следующий
вопрос

program Main;
var
num1, num2: real;
result: integer;
begin
write('Введите первое вещественное число: ');
readln(num1);
write('Введите второе вещественное число: ');
readln(num2);

result := trunc(num1 * num2);

writeln('Целая часть от произведения чисел ', num1, ' и ', num2, ' равна ', result);
end.