ДОРИСУЙТЕ ДОМИКУ ОКОШКИ В ПАСКАЛЕ

Сусанна в категроии Разное, вопрос открыт 19.05.2018 в 16:13

uses GraphABC;
var J : integer;
begin
line(200,300,200,500);
line(400,300,400,500);
line(300,100,100,300);
line(100,300,200,300);
line(300,100,500,300);
line(500,300,400,300);
line(320,200,320,230);
line(320,200,345,200);
line(345,200,345,230);
line(320,230,345,230);
line(320,245,320,275);
line(320,245,345,245);
line(345,245,345,275);
line(345,275,320,275);
line(320,290,320,305);


end.