Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');
Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');
Ответ:
13668= 1 × 10000 + 3 × 1000 + 6 × 100 + 6 × 10 + 8
10000- класс тысяч
3000- класс тысяч
600- класс ведения единиц
60- класс единиц
8- класс единиц