Записать программу выделения цифр из двузначного числа

Спасибо

Program n1;var a,d1,d2: integer;beginreadln(a);d1:=a div 10;d2:=a mod 10;writeln('1 цифра: ',d1);writeln('2 цифра: ',d2);end.