Помогите с задачей по Паскалю

Question

Дано натуральное число n. Найти наибольшее среди чисел (k=1,...n), а также сумму всех этих чисел.

Найти наибольшее среди чисел <img src="//otvet.imgsmail.ru/download/ba2cf9c7d32546655b65263fe67472b9_i-244.jpg" > а также сумму всех этих чисел

Ислом Муминов · Accepted Answer

Первая половина - наибольшее число - n. 
Вторая половина - (1+n) * n / 2;

Наталья Шаброва · Answer

Что то не так в вашем задании. Наибольшее из чисел 1...N полубому выходит N. 
Сумма считается элементарно 
 
function summall(num:integer):integer; 
begin 
if num=1 then summall:=num else summall:=num+summall(num-1); 
end;