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

Program zzxxzzxx; var a,b: real; begin Writeln('Введите 2 вещественных числа. Я найду их произведение. Вводите через пробел'); {выдает сообщение с новой строки при запуске} read(a,b); {считывает информацию} Writeln('произведение равно ',round(a*b));  {пишет фразу и округляет произведение a и b до целого числа} readln {чтобы окно заржалось на экране} end.