цикл

uses Robot;
var i:integer;
begin
 field(15,15);


for  i:=1  to  5  do
begin
paint;
right;
end;







end.