program p13;

Uses Crt;

var N1,N2,prvni_cifra,druha_cifra:byte;

begin
clrscr;
repeat
write('Zadej cislo (10-99) : ');
readln(N1);
until (N1>9) and (N1<100);
prvni_cifra:=trunc(N1/10);
druha_cifra:=N1-10*prvni_cifra;
N2:=10*druha_cifra+prvni_cifra;
writeln('Cislo s obracenymi ciframi je ',N2);
repeat until keypressed;
end.