var num,taisosa,jaak:integer; begin writeln('Sisesta number'); readln(num); taisosa:=num div 100; jaak:=num mod 100; if taisosa=1 then write('kssada ') else if taisosa=2 then write('kakssada ') else if taisosa=3 then write('kolmsada ') else if taisosa=4 then write('nelisada ') else if taisosa=5 then write('viissada ') else if taisosa=6 then write('kuussada ') else if taisosa=7 then write('seitsesada ') else if taisosa=8 then write('kaheksasada ') else if taisosa=9 then write('heksasada '); taisosa:=jaak div 10; jaak:=jaak mod 10; if taisosa=2 then write('kakskmmend ') else if taisosa=3 then write('kolmkmmend ') else if taisosa=4 then write('nelikmmend ') else if taisosa=5 then write('viiskmmend ') else if taisosa=6 then write('kuuskmmend ') else if taisosa=7 then write('seitsekmmend ') else if taisosa=8 then write('kaheksakmmend ') else if taisosa=9 then write('heksakmmend ') else if taisosa=1 then if jaak=1 then write('ksteist') else if jaak=2 then write('kaksteist') else if jaak=3 then write('kolmteist') else if jaak=4 then write('neliteist') else if jaak=5 then write('viisteist') else if jaak=6 then write('kuusteist') else if jaak=7 then write('seitseteist') else if jaak=8 then write('kaheksateist') else if jaak=9 then write('heksateist') else if jaak=0 then write('kmme'); if ((jaak=1) and (taisosa<>1)) then write('ks') else if ((jaak=2) and (taisosa<>1)) then write('kaks') else if ((jaak=3) and (taisosa<>1)) then write('kolm') else if ((jaak=4) and (taisosa<>1)) then write('neli') else if ((jaak=5) and (taisosa<>1)) then write('viis') else if ((jaak=6) and (taisosa<>1)) then write('kuus') else if ((jaak=7) and (taisosa<>1)) then write('seitse') else if ((jaak=8) and (taisosa<>1)) then write('kaheksa') else if ((jaak=9) and (taisosa<>1)) then write('heksa'); if num=0 then write('null'); end.