Question

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

Answer 1

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