Решите паскаль:

((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 ('Ответ=,');

Есть недочеты, но в основном верно