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

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