Произведение трех чисел

var
a,b,c,d:real;
begin
writeln('Введите три числа');
readln(a);
readln(b);
readln(c);
d:=a*b*c;
writeln('Ответ=',d);
readln;
end.