Думаю это то что тебе нужно ..
Унарная система счисления – система счисления с основанием 1. Используется, например, при подсчёте небольшого количества предметов: когда подсчитывается очередной предмет ставится единица (или зарубка, черточка, точка или любая другая отметка, также можно откладывать камешки, например). Количество таких единиц совпадает с количеством предметов.
Позиционная система счисления – система счисления, в которой значение цифры зависит от места, на котором она стоит. Например, в десятичной системе стоимость цифры возрастает в 10 раз, если она сдвигается на одну позицию влево: 1 в записи числа 321 означает просто один, а в числе 213 – уже 10.
Непозиционная система счисления – система счисления, в которой значение цифры не зависит от того места, на котором она стоит. Обычно примером непозиционной системы счисления называют римские числа, хотя это не совсем верно: если цифра с меньшим номиналом стоит перед цифрой с большим номиналом, то её значение вычитается из большей цифры, например, XI = 11, но IX = 10 - 1 = 9. Другие примеры – древнеегипетские числа, числа племён майя.
var i,j,n,k,k1,k2,k3: integer; bb: boolean;
a: array of integer;
begin
write('N = ');
readln(n);
if ((n mod 3 = 0) and (n<>0)) then begin
write('K1 = ');
readln(k1);
write('K2 = ');
readln(k2);
write('K3 = ');
readln(k3);
setlength(a,n);
for i:=0 to n-1 do begin
write('Заполним номер ',i+1,' -> ');
readln(a[i]);
end;
i:=0;
while (i<n) do
begin
a[i]:=k1-a[i];
a[i+1]:=k2-a[i+1];
a[i+2]:=k3-a[i+2];
inc(i,3);
end;
write('K = ');
readln(k);
for i:=0 to n-2 do
if (a[i]+a[i+1]>=k) then begin write('В комнатах ',i+1,' и ',i+2,' есть ',a[i]+a[i+1],' свободных мест'); bb:= true; end;
if (bb=false) then writeln(0);
end else writeln('Введите число кратное 3 и неравное 0');
readln;
end.
k,n,i:integer;
begin
k:=0;
readln (N);
while k<N do
begin
k:=k+2;
writeln (k);
end;
end.