program PascalGuru;
var A,C:array[1..30] of integer; {описание переменных}
i,n:integer;

{--------------------------------------------}
begin
writeln ('Vvedite elementy massiva A: ');
for i:=1 to 30 do begin
write ('A[',i,']='); readln (A[i]); end; {ввод массива}

writeln;
writeln ('Vot vvedennyi vami massiv A: ');
for i:=1 to 30 do write (A[i]:4,' '); {вывод массива на экран}

n:=0;
for i:=1 to 30 do {проход по всему массиву}
if A[i]<>0 then {если ел-т не нулевой}
begin
inc(n);
C[n]:=A[i]; {записываем его в новый массив}
end;

writeln;
writeln ('Vot massiv C: ');
for i:=1 to n do write (C[i]:4,' '); {новый массив выводим на экран}

readln;
end.