Чертёжнику был дан для исполнения следующий алгоритм сместиться на -1 1 повтори 4 раз сместиться на 3 , 1 сместиться на -1 , 4 конец на какую команду можно заменить этот алгоритм ? ​

{$r+,s+,q+}  uses  sysutils;   const r=1000; type mas= array  [0..r]  of integer; var  a: mas;   en,n: integer;   x,y,z,q,w: char; function push(n: integer): string; begin   a[en]: =n;   en: =en+1;   push: ='ok'; end; function pop(): integer; begin   en: =en-1;   pop: =a[en];   a[en]: =0; end; function back(): integer; begin   back: =a[en-1]; end; function size(): integer; begin  size: =en; end; function clear(): string; begin   en: =0;   clear: ='ok'; end; function exit(): string; begin  exit: ='bye'; end; begin   en: =0;   repeat     read(x);     if x='p' then    begin       read(y);       if y='u' then      begin         read(z,q,w);         readln(n);         writeln(push(n))      end else begin         readln(z);         writeln(;       end;     end;     if x='b' then    begin       readln(y,z,q);       writeln(;     end;     if x='s' then begin       readln(y,z,q);       writeln(;     end;     if x='c' then begin       readln(y,z,q,w);       writeln(;     end;     if x='e' then begin       readln(y,z,q);       writeln(;     end;   until x='e'; end.

Писал с учётом очистки экрана. тобишь модуль uses crt, если не проходили, то лучше удали эту строчку и "clrscr". program g; uses crt; const n=10; var i, count: integer; mass: array [1..n] of integer; begin    clrscr;   count: =0;     for i: =1 to n do   begin     mass[i]: =random(31)-15;     write(mass[i]: 4);   end;   writeln;   for i: =1 to n do        if mass[i]> 0 then inc(count);   if count=0 then writeln('в массиве нету положительных чисел.')   else writeln('количество положительных чисел в массиве: ', count);   readln;   end.