Пожалуйста, напишите в Паскале. Напишите программу, которая по заданному числу вычисляет...

Question

Пожалуйста, напишите в Паскале.
Напишите программу, которая по заданному числу вычисляет его вторую цифру справа.
input.txt
123
-139
9
output.txt
2
3
0

Answer 1

Var
a,b,c:integer;
begin
read(a);
b:=a div 10;
c:=b mod 10;
writeln(c);
end.