program произведение_A_B;varA, B, C: real;beginreadln(A, B);C := A * B;writeln('Произведение введенных Вами чисел равно ', C);end.
program произведение_A_B;
var
A, B, C: real;
begin
readln(A, B);
C := A * B;
writeln('Произведение введенных Вами чисел равно ', C);
end.