Поместить цифру 0 на первую позицию вектора, состоящего из чисел 5 3 7 8 без использования другого вектора
program vector;
uses crt;
var a:array[1..5] of integer;
i:integer;
begin
clrscr;
writeln('vvedite 4 znachenia 5 3 7 8 libo drugie');
for i:=1 to 4 do readln(a[i]);
for i:= 4 downto 1 do a[i+1]:=a[i];
a[1]:=0;
for i:=1 to 5 do write(a[i]:8);
readln
end.
Буду благодарна, если отметите