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

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