Составбте прогоамму создания изображался Робот с использованием процедуры ​

Question

Составбте прогоамму создания изображался Робот с использованием процедуры ​

---

Answer 1

uses Robot;

procedure drawKrest;

begin

   Left; Paint; Right; Up; Paint; Down; Right; Paint; Left; Down; Paint; Up; Paint;

end;

begin

   field(20, 9);

   for var i := 1 to 8 do Left;

   for var i := 1 to 2 do begin

       drawKrest;

       Right; Right; Right; Up;

       drawKrest;

       Right; Right; Right; Down;

   end;

   drawKrest;

   Right; Right; Right; Down;

   drawKrest;

end.