Question

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

Answer 1

uses graphabc;

begin

Rectangle(100,100,200,130);

Rectangle(200,130,300,160);

end.

НА PascalABC !