Найдите ошибки в записи программы. Перепишите программу в исправлении.

Исправленная программа:

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