Решите паскаль: ((a+b)c)d=x a=5 b=4 c=6 d=8

Program zeck_228;
Var x,a,b,c,d:real;
Begin
Writeln('Введите a');
Readln('a');
Writeln('Введите b');
Readln('b');
Writeln('Введите c');
Readln('c');
Writeln('Введите d');
Readln('d');
x:=((a+b)*c)*d;
Writeln('ответ=,');
Есть недочеты, но в основном верно