Ответ:

2.

program p1;

uses Robot;

procedure Cross;

begin

paint;

right;

up;

paint;

left;

paint;

left;

paint;

up;

right;

paint

end;

var i:integer;

begin

Task('p1');

down;

Cross;

for i := 1 to 5 do right;

down;

Cross;

up;

for i := 1 to 3 do left;

Cross;

down

end.

3.

program p2;

uses Robot;

procedure Square2;

begin  

right;

paint;

down;

paint;

left;

paint;

up;

paint

end;

var i,j:integer;

begin

Task('p2');

for i := 1 to 6 do

begin

Square2;

if i<=5 then for j := 1 to 3 do right

end

end.