ПОМОГИте решить PASCAL

Question

Решите пожалуйста следующие задачи! 
 
9.Дано целое число в диапазоне 20–69, определяющее возраст (в годах) . Вывести строку-описание указанного возраста, обеспечив правильное согласование числа со словом «год» , например: 20 — «двадцать лет» , 32 —«тридцать два года» , 41 — «сорок один год» . 
 
Вычислить и выдать на экран количество слагаемых в сумме 1+1/2+1/3(это дроби).... +1/n чтобы эта сумма была больше 12! Спасибо!

Алексей Шерстюк · Accepted Answer

первое 
 
Program Case16; 
Var 
Year:Byte; 
Begin 
WriteLn('Введите возраст: '); 
ReadLn(Year); 
Case Year Mod 10 Of 
5,6,7,8,9,0:WriteLn(Year,' лет'); 
1:WriteLn(Year,' год'); 
2,3,4:WriteLn(Year,' годa'); 
End; 
End.

Александр Бочко · Answer

второе 
 
program drob; 
var sum: real; 
 i: longint; 
Begin 
 i:=0; 
 sum:=0; 
 repeat 
 inc(i); 
 sum:=sum+1/i; 
 until sum>12; 
 Write('Количество слагаемых равно: ');WriteLn(i); 
End.