Склавиатуры вводится натуральное число. найдите предпоследнюю цифру(составить программу в abc pascal )

Uses crt; var x: integer; s,s1: string; begin write('натуральное число  =  '); readln(x); s: =inttostr(x); s1: =copy(s,length(s)-1,1); writeln('предпоследняя цифра = ',s1); end.

Для того чтобы в младшем разряде была цифра 4 необходимо, чтобы 360 делилось на основание системы счисления без остатка, поэтому разложим число 360 на множители 360=2*2*2*3*3*5 => возможные системы счисления, в которых в младшем разряде будет цифра 4 будут получены произведениями данных чисел, в результате большие, чем 4 и не равные 10 посчитаем возможные комбинации, это и будет ответом на всего выходит 19 систем счисления, подходящих условию (5,6,8,9,12,15,18,20,24,30,36,40,45,60,72,90,120,180,360)

Дана последовательность чисел а длины n. требуется вывести в обратном порядке.первая строка входного файла содержит целое число n (1 < = n < = 1000000) - длинупоследовательности. вторая строка входного файла содержит n целых чисел - элементыпоследовательности a. все элементы последовательности не превосходят 100000 поабсолютному значению.в единственной строке выходного файла выведите элементы последовательности a вобратном порядке. для наглядности обратите внимание на примеры.a in 3 a out 321123  4 a out  1231 1321