Распишите алгоритм программы (что делаем и т.д), паскаль! Массивы, необходимо было вывести элементы с четными номерами.
program qq;
var a:array of integer;
n,i:integer;
begin
read(n);
setlength(a,n);
for i:=0 to n-1 do read(a[i]);
writeln;
i:=0;
while i<=n-1 do begin
write(a[i]:4);
i:=i+2;
end;
end.

program qq;

var a:array of integer;  // объявляем безразмерный массив целых чисел

n,i:integer;  // объявляем переменные n,i целого типа

begin

read(n);  // считываем значение n - длины массива - с клавиатуры

setlength(a,n);  // устанавливаем длину массива a

for i:=0 to n-1 do read(a[i]);  // считываем элементы массива с клавиатуры

writeln;  // новая строка

i:=0;

while i<=n-1 do begin

write(a[i]:4);  // вывод элемента массива с индексом i

i:=i+2;  // увеличиваем индекс i на два

end;

end.