На языке паскаль вычислить произведение трёх чисел (больше нечего не указано)

Var
A,B:real;
Begin
Write('Первое число: ');
ReadLn(A);
Write('Второе число: ');
ReadLn(B);
A:=A*B;
Write('Третье число: ');
ReadLn(B);
A:=A*B;
WriteLn('Произведение данных чисел: ',A);
End.