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('ответ=,'); Есть недочеты, но в основном верно
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('ответ=,');
Есть недочеты, но в основном верно