var
a1,b1,a2,b2 : integer;
begin
writeln('Введите стороны первого прямоугольника:');
readln(a1,b1);
writeln('Введите стороны второго прямоугольника:');
readln(a2,b2);
writeln('Их общая площадь:',a1*b1+a2*b2);
end.
