program dsfgsd;
const N=0;
var i,:integer;
a: array [1..N] of integer;
begin
clrscr;
for i:= Random(100);
write(a'');
writeln;
for var i:=1 to N-1 do
a :=a[i+1];
a[N] :=0;
writeln('После: ');
for var i:=,'');
writeln;
end.
const N=0;
var i,:integer;
a: array [1..N] of integer;
begin
clrscr;
for i:= Random(100);
write(a'');
writeln;
for var i:=1 to N-1 do
a :=a[i+1];
a[N] :=0;
writeln('После: ');
for var i:=,'');
writeln;
end.