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.