Осуществите циклический сдвиг компонент заданного вектора влево на одну…

Program sdvig; uses crt; cоnst n=10; k=3; var i,c,j: integer; b: array[1… n] of integer; BEGIN randomize; clrscr; writeln ('решение задачи на сдвиг вектора '); writeln ('-'); writeln; writeln ('вектор В: '); for i: =1 to n do begin b[ i ]: =random (101); write (b [ i ]: 3); end; writeln; for j: =1 to k do begin c: =b[ n ]; for i: =n-1 downto 1 do b[i+1]: =b[ i ]; b[1]: =c; for i: =1 to n do write (b[ i ]: 3); writeln; end; writeln ('конец задачи '); readkey; END.