Сместиться на (—12,16) повтори 4 раза сместиться на (а, ъ) сместиться на (—3,1) сместиться на (2, —2) конец

(-53 ; 67)

Var X, Y, Z : Integer;
BeginY:= 1;RepeatX:= X-12;Z:= Z+16;Y:= Y+1;Until Y = 5;X:= X-3;Z:= Z+1;X:= X-2;Z:= Z+2;Writeln('X= ', X, ' | Z= ', Z);End.