Как я понял так:
var a,b; //Объявляем переменные a и bbeginread(a); //Считываем из консоли aread(b); //Считываем из консоли brepeat //Повторяемa := b div 10; //Присваиваем a значение целочисленного деления b на 10b := b mod 10; //Присваиваем b значение остатка деления b на 10writeln(b); //Выводим в консоль buntil a = 0; //Пока a не станет равно 0writeln(a);writeln(b); //Ну и просто выводим значения (можно убрать)end.