Вывести на экран в pascal abc с цикла (три разные ): 12345 1234 123 12 1 54321 4321 321 21 1 54321 5432 543 54 5

Program n1;
var a,b:integer;
begin
a:=12345;
writeln(a);
for b:=1 to 4 do begin
   writeln (a div 10);
  a:=a div 10;
end;
end.

program n2;
var a,b,c:integer;
begin
b:=54321;
c:=10000;
writeln(b);
for a:=1 to 4 do begin
writeln(b mod c);
c:=c div 10;
end;
end.

program n3;
var b,a:integer;
begin
a:=54321;
writeln(a);
for b:=1 to 4 do begin 
writeln(a div 10);
a:=a div 10;
end;
end.

1) это шестеричная система счисления(т.к  6 знаком в алфавите). Основание с.с = 6
2)1001101(2)=77(10),  2 и 10 основание с.с они должны быть записаны в низу, сначала необходимо над цифрами расставить степень числа,начиная с справа на лева(т.е от знака равно) и начиная с 0-вой степени, здесь с 0 по 6-ю степень,затем начинаем решать 1*2^6+0*2^5+0*2^4+1*2^3+1*2^2+0*2^1^1*2^0=(возводим 2 в степень и умножаем на число,находим сумму) 64+0+0+8+4+0+1= 77 (умножали число на 2,т.к это основание с.с)
3) 0,1,2,3,4
4) 10F(16)= 271(10)
5) 8 (восьмеричная с.с)  
находите самую большую цифру (букву, имеющую цифровое значение) в записи числа. Эта величина + 1 и даст минимальное основание системы счисления, которое может представлять данная запись...
6) 173(8) = 123(10)

Программа находит наибольшее отрицательное число из n чисел, так как рандом состоит из положительных и отр. чисел, не стал писать else. Код кривой, но рабочий :)
program asd;
USES crt;
var a:array[1..100]of integer;
i,n,max:integer;
BEGIN
clrscr;
Writeln('Vvedite kol-vo chisel: ');
Readln(n);
for i:=1 to n do
begin
A[i]:=random(20)-10;
Write(' ',A[i]);
end;
max:=A[1];
for i:=2 to n do
begin
if (A[i]<0) then
begin
if (A[i]<max) then max:=A[i]
end;
end;
Writeln;
Writeln('Maksimalnoe chislo pri A[i]<0 = ',max);
END.