Напишите программу, используя подпрограмму для получения заданной фигуры. Примите стороны прямоугольника за 100 и 30.

uses graphabc;

begin

Rectangle(100,100,200,130);

Rectangle(200,130,300,160);

end.

НА PascalABC !