farodis Var x:integer;
begin
paint;
for x:=1 to 5 do
begin
left;
paint;
end;
for x:=1 to 4 do
begin
down;
paint;
end;
for x:=1 to 2 do
begin
right;
paint;
end;
for x:=1 to 3 do
begin
up;
paint;
end;
end.