1. Лицензионные
2. Нелегальные (пиратские)
3. условно-бесплатные
4. бесплатные
Var
i: integer;
ar: array[1..8]of integer;
begin
for i := 1 to 8 do read(ar[i]);
for i := 1 to 8 do
if(i mod 2 = 0) then write(ar[i], ' ');
end.
1001110110^2=1*2^9+1*2^6+1*2^5+1*2^4+1*2^2+1*2^1=576+72+36+16+4+2=706^10
File:///C:/Users/1/Downloads/adc3d87a4746d34fe0cf6ba31880cdf6.ppt