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

Program zzxxzzxx;

var a,b: real;

begin

Writeln('Введите 2 вещественных числа. Я найду их произведение. Вводите через пробел'); {выдает сообщение с новой строки при запуске}

read(a,b); {считывает информацию}

Writeln('произведение равно ',round(a*b));  {пишет фразу и округляет произведение a и b до целого числа}

readln {чтобы окно заржалось на экране}

end.