program multSum;vara, b, c, d, result: integer;beginwriteln('Enter values for a, b, c, and d:');readln(a, b, c, d);
result := (a + b) * (c + d);
writeln('Result: ', result);end.
program multSum;
var
a, b, c, d, result: integer;
begin
writeln('Enter values for a, b, c, and d:');
readln(a, b, c, d);
result := (a + b) * (c + d);
writeln('Result: ', result);
end.