Var
i:integer;
Ar: array [1..99] of string;
begin
 for i:=1 to 99 do
 begin
 if i in [5..20] then ar[i]:='let' else
 case (i mod 10) of
                                1: ar[i]:='god';
                                2,3,4: ar[i]:='goda'

 else ar[i]:='let'; end;
 end;
 repeat
 write('enter the number: ');
 readln(i);
 if i in [1..99] then begin
 {for i:=1 to 99 do}
 writeln('Mne ',i,' ',ar[i]);
 readln
 end;
 until i=0;
end.