var a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
if i mod 2 = 0 then A[i] :=i * 2
else A[i] :=0;
write (a[i]:3)
end
end.
var a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
begin
if i mod 2 = 0 then A[i] :=i * 2
else A[i] :=0;
write (a[i]:3)
end
end.