program z1;
var
k,n,m:integer;
begin
repeat
writeln('vvedie chislo ot 10 do 99');
readln(k);
until k in [10..99];
n:=k div 10;
m:=k mod 10;
writeln(n,' ',m);
end.
program z1;
var
k,n,m:integer;
begin
repeat
writeln('vvedie chislo ot 10 do 99');
readln(k);
until k in [10..99];
n:=k div 10;
m:=k mod 10;
writeln(n,' ',m);
end.