помогите решить задачи на паскаль

Question

Сумма цифр числа. Во входном файле записано натуральное число не превышающие 10 в сотой степени . Требуется найти сумму цифр числа. 
 
На лифте за зарплатой. Ох уж эти офисные здания, понастроили по сто этажей! Офис №13 находится на сотом этаже, а бухгалтерия на первом. Перед Новым годом, в последний рабочий день перед праздниками, зарплату решили выдать наличными. Работники офиса №13 узнали об этом только за 15 минут до окончания рабочего дня, поэтому шанс получить зарплату сегодня, есть только у тех, кто немедленно сядет в лифт и спустится на первый этаж. Все работники офиса, в количестве 10 человек, бросились к лифту, около которого образовалась очередь. К сожалению, грузоподъемность лифта ограничена и составляет x килограммов, поэтому вряд в него смогут поместиться все желающие. К счастью, известен вес каждого человека стоящего в очереди, так что есть возможность отправить за зарплатой как можно большее число людей. Найти максимальное число людей, которое может уехать на лифте за один раз.

Алексей Ш · Accepted Answer

Первая: 
 
var 
 n: string; 
 s, c: integer; 
 i, o: text; 
begin 
 assign(i, 'input.txt'); 
 reset(i); 
 assign(o, 'output.txt'); 
 rewrite(o); 
 readln(i, n); 
 for c := 1 to length(n) do inc(s, ord(n[c]) - ord('0')); 
 writeln(o, s); 
 close(i); 
 close(o); 
end. 
 
Вторая: 
Слишком много олимпиадных задач для одного вопроса.