Var a,b,c,d,e,f,g:integer;
begin
writeln('(a+b)+(d+e)');
writeln('Введите a: ');
readln(a);
writeln('Введите b: ');
readln(b);
c:=(a+b);
writeln('Введите d: ');
readln(d);
writeln('Введите e: ');
readln(e);
f:=(d+e);
g:=(c+f);
writeln(g);
end.
:D
P.s:Если нужные дробные числа,то вместо "integer" поставь "real".
Что-то я не так сделал:DD