Ответ:

program z1;

var a:real;

b:integer;

begin

readln(a);

a:=abs(a);

a:=frac(a);

a:=a*100;

b:=trunc(a);

b:=b mod 10;

write (b)

end.

Объяснение:

Ввод а

Получение модуля переменной а и записывание результата в переменную а

Получение дробной части переменной а и записывание результата в переменную а

Умножение переменной а  на 100

Получение целой части переменной а и записывание результата в переменную b

Получение последней цифры переменной b и записывание результата в переменную b

Вывод b