program MultiplyRealNumbers;
varnum1, num2, result: real;
beginwriteln('Введите первое число: ');readln(num1);
writeln('Введите второе число: ');readln(num2);
result := num1 * num2;
writeln('Результат умножения: ', result:0:2);
end.
program MultiplyRealNumbers;
var
num1, num2, result: real;
begin
writeln('Введите первое число: ');
readln(num1);
writeln('Введите второе число: ');
readln(num2);
result := num1 * num2;
writeln('Результат умножения: ', result:0:2);
end.