var a:array[1..100] of integer;
i:integer;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]); // Заполняем массив
if i mod 3=0 then // Проверка на кратность номера элемента 3ем
write(a[i], ' ');
end;
end.
Unit jov79262;
function s2(a,b:real):real;
begin
s2:=a*b
end;
function v3(a,b,h:real):real;
begin
v3:=a*b*h
end;
end.
.........................................................