помогите с вопросом

[darika]

я уже проверяла!! и не чего клевитать!!! Если препод бабка старая! и не понимает!

[puporev]

У Вас что-то с условием задачи неверно. В таком виде

дано натуральное число.найти среди чисел 1;1+1/2; 1+1/2+1/3...
первое больше а.

она довольно убогая. Уже при а=18 программа считает больше 8 секунд, а пр больших значениях почти зависает. Это если использовать типи Longint. Если брать integer для а, то вообще программа не работает приa<5. Надо бы где-то раздобыть нормальное условие задачи, а при том как написано, Вам все объяснили правильно.