Uses crt; var s:integer; begin clrscR; write('1-100 arası bir sayı giriniz'); readln(s); repeat write(s mod 10); s:=s div 10; Until s=0; Writeln; Write('Çıkış için bir tuşa basınız'); write('Made in Ersin'); readln; end.