Написать программу на турбо паскале на вычисление произведения чисел a и b

Program Turbo;

uses Crt;

var
  a,b,r:real;

begin
  Write('Введите a и b через пробел: ');
  Readln(a,b);
  r:=a*b;
  Writeln('Произведение равно ',r);
  ReadKey
end.