Помогите пожалуйста написать прогу

[Juhn]

Доброго времени суток !
Условие: дано 2 натуральных числа a и b, притом a<b. Найти их сумму, среднее арифметическое, количество чисел. Использовать нужно цикл Repeat - Until, While - Do.
Может кто - то помочь с написанием этой программы в паскале ? Очень нужно.
Спасибо заранее.

[Хыиуду]

Делить число без остатка на 10 (a:=a div 10) до тех пор, пока оно не сравняется с нулем. На каждом шагу увеличивать счетчик на 1. Как найти сумму двух чисел, постыдился бы спрашивать. RTFM