a = input()
print(a[-1:] if int(a) % 2 == 0 else a[-2:-1])
Объяснение:
1) Введем число как строку.
2) Конструкция "действие1 if условие1 else действие2" (она еще называется тернарным оператором) выполняет действие1, если условие1 возвращает True, иначе выполняется действие2. Это уменьшает количество строк кода с четырех до одной.
3) Выражение s[a:b] вернет все символы в строке s в диапазоне [a; b). Выражение s[a:] вернет все символы в строке s от a до конца строки. Если a или b отрицательные, то отсчет будет вестись с конца строки. Выражение s[-1:] вернет все символы в строке, начиная с последнего (т.е., последний символ). Ну а s[-2:-1] вернет все символы с предпоследнего до последнего, исключая последний (т.е., предпоследний символ).
Var st:string;
BEGIN
Writeln ('Напишите Ваше имя');
Readln(st);
Writeln ('Привет ',st,' !');
Readln;
end.