Сформируйте одномерный массив из 6 элементов

Uses crt; var a: array[1… 6] of integer; i: integer; beginfor i: =1 to 6 doreadln (a[i]); writeln; for i: =3 to 5 doa[i]: =a[i+1]; a[6]: =0; for i: =1 to 5 dowriteln (a[i]); end.