Question

uses robot;
var i:integer;
procedure zzz;
begin
up;up;up;up;up;
left;left;left;left;left;
left;left;
end;
procedure www;
begin
right;paint;down;down;paint;down;down;
paint;down;down;paint;down;down;paint;
right;right;paint;up;paint;up;paint;up;paint;up;paint;up;
paint;up;paint;up;paint;up;paint;up;paint;
end;
begin
Field(15,10);
for i:=1 to 3 do
www;
end.
Почему при написании этой программы выдает ошибку?

Answer 1

Проверено в PascalABC.NET

Всё хорошо работает(Скриншот):