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