Даны три прямоугольника, каждого из которых известны координаты вершин одной диагонали: 1) 20, 20 и 80, 200;
2) 200, 97 и 500, 156;
3) 300, 120 и 400, 420. Составьте программу, которая рисует эти прямоугольники красным, жёлтым и зелёным цветами, соответственно.

ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ

PascalABCNETuses graphABC;beginsetpencolor (clRed);line(20,20,20,200);line(20,200,80,200);line(80,200,80,20);line(80,20,20,20);setpencolor (clYellow);line(200,97,200,156);line(200,156,500,156);line(500,156,500,97);line(500,97,200,97);setpencolor (clGreen);line(300,120,300,420);line(300,420,400,420);line(400,420,400,120);line(400,120,300,120)end.