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

Question

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

Answer 1

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