Дано натуральное число n. Найти среднее геометрическое первой и последней цифр заданного числа.
помогите написать программу в паскале.

Var   n,c:integer;BeginWrite('n = ');ReadLn(n);c:=n mod 10;While n div 10 > 0 do   n:=n div 10;WriteLn(Sqrt(n*c))End.