# Write a program that enters an integer not exceeding 100 and outputs it in words, for example: 21- “twenty-one”

program abc;

var

a, b, c, t, z: integer;

m, k, l: string;

label 1,2,3,4;

begin

writeln (‘Enter a number from 1 to 100’);

repeat read (a) until (a> = 0) and (a <= 100);

b: = a div 10;

c: = a mod 10;

if a = 100 then goto 2;

if a = 0 then goto 1;

if (a> 9) and (a <20) then goto 4;

case b of

2: m: = ‘Twenty’;

3: m: = ‘Thirty’;

4: m: = ‘Forty’;

5: m: = ‘Fifty’;

6: m: = ‘Sixty’;

7: m: = ‘Seventy’;

8: m: = ‘Eighty’;

9: m: = ‘Ninety’; end;

case c of

1: k: = ‘one’;

2: k: = ‘two’;

3: k: = ‘three’;

4: k: = ‘four’;

5: k: = ‘five’;

6: k: = ‘six’;

7: k: = ‘seven’;

8: k: = ‘eight’;

9: k: = ‘nine’;

end;

writeln (m, k);

goto 3;

2: writeln (‘Hundred’);

goto 3;

1: writeln (‘Zero’);

goto 3;

4: if a = 10 then writeln (‘Ten’);

if a = 11 then writeln (‘Eleven’);

if a = 12 then writeln (‘Twelve’);

if a = 13 then writeln (‘Thirteen’);

if a = 14 then writeln (‘Fourteen’);

if a = 15 then writeln (‘Fifteen’);

if a = 16 then writeln (‘Sixteen’);

if a = 17 then writeln (‘Seventeen’);

if a = 18 then writeln (‘Eighteen’);

if a = 19 then writeln (‘Nineteen’);

3: end.