наиболее распространенной в настоящее время является кодировка microsoft windows, обозначаемая сокращением cp1251 (code page – кодовая страница).
от начала 90 годов времени господства ос ms dos, остается кодировка ср886.
так же компьютеры фирмы apple, работающие под своей операционной системой мac os, используют свою кодировку mac.
кроме того, международная организация по стандартам (international standards organization, iso) утвердили в качестве стандарта для языка еще одну кодировку под названием iso 8859.
i:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 15 do
begin;
ar[i]:=random(2);
write(ar[i]:4);
if ar[i]=1 then ar[i]:=0 else ar[i]:=1;
end;
writeln;
writeln('Final array:');
for i:=1 to 15 do
write(ar[i]:4);
end.