Сформируйте одномерный массив из 6 элементов (значения элементов укажет пользователь с клавиатуры). удалить элемент под номером 3.

Uses crt;
var a:array[1..6] of integer;
i:integer;
begin
for i:=1 to 6 do
readln(a[i]);
writeln;
for i:=3 to 5 do
a[i]:=a[i+1];
a[6]:=0;
for i:=1 to 5 do
writeln(a[i]);
end.