Объяснение:
program razryadi;
var
ch:integer;
begin
readln(ch);
Writeln(ch mod 10,' - единиц');
Writeln((ch mod 100) div 10,' - десятков');
end.
