Question

Uses robot;
Begin
Task('cc13') ;
Пожалуйста дайте ответ

Answer 1

Ответ:

Uses robot;

var i,j,k,a,b:integer;

Begin

Task('cc13');

a:=12; b:=10;

for i:=0 to 3 do

begin

for j:=0 to a do right;

a:=a-2;

Down;

for k:=0 to b do left;

b:=b-2;

Paint;

Down;

end;

end.