Дано двухзначное число найти цифры этого числа. Заранее спасибо!

vara,b,c:integer;beginwrite('Введите двухзначное число: ');readln(a);c:=a div 10;b:=a mod 10;writeln(c,#10,b);end.