2017年10月08日普及组 世界语

分析
水题一道，提交的时候把文件夹的名字打错了，结果没了100分……

程序

const
a:array[1..10]of string=('unu','du','tri','kvar','kvin','ses','sep','ok','nau','dek');
var
x:longint;
begin
    assign(input,'shijie.in');
    reset(input);
    assign(output,'shijie.out');
    rewrite(output);
    read(x);
    if x<=10 then write(a[x]) else
    if x mod 10=0 then write(a[x div 10]+'dek') else
    if x div 10=1 then write('dek'+' '+a[x mod 10]) else
    write(a[x div 10]+'dek'+' '+a[x mod 10]);
    close(input);
    close(output);
end.