Найти произведение 3 вещественных чисел

program zz1;

var a, b, r, i:real; / / задаем переменные нецелого типа

begin

write (' введите первое вещественное число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе вещественное число '); / / вводим с клавиатуры второе число

read (b);

write (' введите третье вещественное число '); / / вводим с клавиатуры третье число

read (r);

i:=a * b * r; / / вычисляем произведение заданных вещественных чисел по формуле

write (' произведение трех заданных вещественных чисел = ', i); / / выводим ответ

end.