Question

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

Answer 1

var a, b, x: integer;
begin 
    readln(x); 
    a := x div 10; b := x mod 10; 
    writeln(a, ' ', b);
end.