Для исполнителя Робота написать алгоритм, который закрасит все клетки по периметру поля 5*5 клеток.

uses robot;varx:integer;beginfield(5,5);up;up;paint;right;paint;right;paint;for x:=1 to 4 dobegindown;paint;end;for x:=1 to 4 dobeginleft;paint;end;for x:=1 to 4 dobeginup;paint;end;right;paint;end.