Нужна помощь с заданием на рекурсию. Не получается выполнить.

[kipairs]

Рассмотрим два положительных числа а0 и b0 и составим их среднее арифметическое и среднее геометрическое. Продолжим этот процесс и, если числа an и bn уже построены, то определим an+1 и bn+1 следующим образом:


a(n+1)=(a(n)+b(n))/2 b(n+1)=sqrt(a(n)*b(n))


Известно, что последовательности {an} и {bn} стремятся к общему пределу и, следуя Гауссу, его называют средним арифметико-геометрическим исходных чисел а0 и b0. Написать рекурсивную функцию для его вычисления.

НА ПАСКАЛЕ.

[Stilet]

Из того что понял:

Procedure recu(a,b:Double);
begin
 Writeln(a:10:2,b:10:2);
 if Рак свиснул then exit;
 recu((a+b)/2,sqrt(a*b));
end;