Var x1,y1,a1,b1,x2,y2,a2,b2,x3,y3:integer; begin
writeln('Введите координаты левого нижнего угла и длины сторон первого прямоугольника');
readln(x1,y1,a1,b1);
writeln('Введите координаты левого нижнего угла и длины сторон второго прямоугольника');
readln(x2,y2,a2,b2);
if x1+a1>x2+a2 then x3:=x1+a1 else x3:=x2+a2;
if y1+b1>y2+b2 then y3:=y1+b1 else y3:=y2+b2;
write('Координаты правого верхнего угла общего прямоугольника x=',x3,' y=',y3);
end.

переведите на питон​

Данил20010001    1   30.10.2020 14:15    1