)составить программу умножения 3 чисел программы паскаль) не могу доолго ждать))

Program n;
var
a,b,c,d:real;
begin
writeln(a,b,c);
readln(a,b,c);
d:=a*b*c;
writeln('otvet=',d)
end.