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

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

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