task6var1

program Task6;

type
s = array[1..9] of string;
d = array[0..9] of string;
e = array[0..9] of string;

var
digit: integer;
sa : s;
da : d;
ea : e;
ans1, ans2, ans3 : string;

begin
    sa[1] := 'сто';
    sa[2] := 'двести';
    sa[3] := 'триста';
    sa[4] := 'четыреста';
    sa[5] := 'пятьсот';
    sa[6] := 'шестьсот';
    sa[7] := 'семьсот';
    sa[8] := 'восемьсот';
    sa[9] := 'девятьсот';

    da[0] := '';
    da[1] := 'десять';
    da[2] := 'двадцать';
    da[3] := 'тридцать';
    da[4] := 'сорок';
    da[5] := 'пятьдесят';
    da[6] := 'шестьдесят';
    da[7] := 'семьдесят';
    da[8] := 'восемьдесят';
    da[9] := 'девяносто';

    ea[0] := '';
    ea[1] := 'один';
    ea[2] := 'два';
    ea[3] := 'три';
    ea[4] := 'четыре';
    ea[5] := 'пять';
    ea[6] := 'шесть';
    ea[7] := 'семь';
    ea[8] := 'восемь';
    ea[9] := 'девять';

    writeln('Введите число:');
    readln(digit);
    if ((digit mod 100) < 11) or ((digit mod 100) > 19) then
        begin
            ans1 := ea[digit mod 10];
            digit := digit div 10;
            ans2 := da[digit mod 10];
            digit := digit div 10;
            ans3 := sa[digit mod 10];
            writeln(ans3, ' ', ans2, ' ', ans1);
        end
    else
        begin
            case(digit mod 100) of
            11 : ans2 := 'одиннадать';
            12 : ans2 := 'двенадать';
            13 : ans2 := 'тринадать';
            14 : ans2 := 'четырнадцать';
            15 : ans2 := 'пятнадцать';
            16 : ans2 := 'шестнадцать';
            17 : ans2 := 'семнадцать';
            18 : ans2 := 'восемнадцать';
            19 : ans2 := 'девятнадцать';
            end;
            digit := digit div 100;
            ans1 := sa[digit];
            writeln(ans1, ' ', ans2);
        end;

end.