помогите пзж турбо паскаль

с помощью div и mod отделяешь нужные числа, а потом производишь с ними операции

write('x='); //вводится число
readln(x);

a:=x div 100; // 1ая цифра
b:=(x mod 100) div 100; // 2ая цифра
c:=(x mod 10) div 10; // 3ья цифра

попробуй так
ну, а потом выводи

writeln(a);
writeln(c);

можно было ещё как-то переводом числа в строку, но мне лень вспоминать ;[[