//PascalABC.Net 3.2
begin
var prod:=1;
var a:=readinteger('a ='); var b:=readinteger('b =');
for var i:=a to b do prod*=i;
write ('Ср. геометрическое: ', prod/(b-a))
end.
Удаление слова при его выделении
using System;
using System.Linq;
using static System.Console;
class Program
{
static void Main()
{
int x=int.Parse(ReadLine());
var t=x.ToString().Select(n=>(int)n).Reverse().ToList();
WriteLine((t.FindIndex(n=>n==t.Max())+1).ToString());
}
}
Var n, i: integer;
begin
read(n);
for i:=10 to 99 do
if (i mod n=0) and (i mod 10<>n) and (i div 10<>n) then write(i, ' ');
end.