Уууу.! напишите программу для создания и закрашивания кораблика !

Прошууууу………………
ПОМОГИТЕ!!!!!!!!!
Пожалуйста напишите программу для создания и закрашивания кораблика  !!!

  • если это надо сделать в pascal abc то вот:
    uses  graphABC;
    begin  setpencolor(clblue); 
     line(200,50,300,50);
    line(300,50,300,200);
    line(300,200,200,200);
    line(200,200,200,50);
    line(400,50,500,50);
    line(500,50,500,200);
    line(500,200,400,200);
    line(400,200,400,50); 
     setpencolor(clblack);
    line(500,50,600,200);
     line(300,50,400,200);
     setpencolor(clgreen);
     line(300,200,400,200); 
    line(100,200,200,200); 
    line(100,200,200,400); 
    line(200,400,500,400); 
    line(500,400,600,200); 
    line(600,200,500,200); 
    setpencolor(clred); 
    Circle(250,300,30);
     circle(250,300,15);
    end.




Внимание, только СЕГОДНЯ!