Program z;
Var N,k:integer;
Begin
k:=0;
If N<5 then k:=k+1;writeln(k);
End.
1.
Пока сверху свободно
Вверх
Пока справа свободно
закрасить вправо
Пока снизу свободно
закрасить вниз
Пока слева свободно
закрасить влево
Пока сверху свободно
закрасить верх
пока справа свободно
закрасить вправо
1280 Кбайт
31,25 сек
16 Кбайт