var
a : integer;
begin
repeat
write('введите двузначное число ');
readln(a);
if (a < 100) and (a > 9) then Writeln(a div 10, ' ', a mod 10);
until (a < 100) and (a > 9);
end.
var
a : integer;
begin
repeat
write('введите двузначное число ');
readln(a);
if (a < 100) and (a > 9) then Writeln(a div 10, ' ', a mod 10);
until (a < 100) and (a > 9);
end.