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

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