Всё правильно, это "11", о котором ты спрашиваешь, записано в 3-й системе.
Когда ты делишь 148 на 9 (в десятичной системе), у тебя получается остаток 4:
148 : 9 = 16 (ост 4)
Если записать то же самое, но в троичной системе, получится:
12111 : 100 = 121 (ост 11)
Для любой системы счисления с основанием N:
число N^2 запишется как 100
число N^3 запишется как 1000
число N^4 запишется как 10000
и т.д.
При делении на N^2 остаток будет две последние цифры;
при делении на N^3 остаток будет три последние цифры
и т.д.
i,k,m,r,p,j:integer;
a:array[1..10]of integer;
begin
writeln('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln;
write('Введите K,M,R: ');
readln(k,m,r);
for i:=1 to r do
begin
j:=k;
p:=a[j];
while j<m do
begin
a[j]:=a[j+1];
j:=j+1
end;
a[j]:=p;
end;
writeln('Измененный массив:');
for i:=1 to 10 do write(a[i],' ');
end.