Question

Напишите пожалуйста команды от начала и до конца. Постройте караблик в PascalABC

Answer 1

uses graphabc;

begin

SetPenWidth(2);

moveto(200,400);

lineto(100,200);

lineto(600,200);

lineto(500,400);

lineto(200,400);

circle(250,300,50);

circle(250,300,25);

rectangle(200,50,300,200);

rectangle(400,50,500,200);

line(300,50,400,200);

line(500,50,600,200);

end.