(Pascal) Составить программу, вычисляющую предпоследнюю цифру числа n

[oxxxy]

Ни как не могу понять, как составить код программы , помогите, пожалуйста :
Дано натуральное n. Составить программу, вычисляющую предпоследнюю цифру числа n.
знаю только, что программный код должен содержать операторы MOD и DIV
за ранее благодарю!!!

[denisbrain]

Сообщение от oxxxy

Ни как не могу понять, как составить код программы , помогите, пожалуйста :
Дано натуральное n. Составить программу, вычисляющую предпоследнюю цифру числа n.
знаю только, что программный код должен содержать операторы MOD и DIV
за ранее благодарю!!!

 var x:integer;
    a:integer;
begin
x:=123456789;
a:=x div 10;
a:=a mod 10;
Writeln(inttostr(a));
end;

[Serge_Bliznykov]

ну, или если чуть-чуть дополнить ответ denisbrain, то можно обойтись этими же действиями в одну строчку:

var  n : longint;
   xx : integer;
begin
  WriteLn('Введите число: ');
  Readln(n);
  xx := (n div 10 ) mod 10;
  WriteLn('Предпоследняя цифра числа равна ',xx);
end.