Составте программу для задачи Нахождение среднего арифметического чисел до 20 кратных 3 Ввести a и b и вывести квадраты и кубы чисел от a до b

//PascalABC.NET версия 3.2, сборка 1389 //Если программа не запускается, то обновите версию begin     var a := SeqWhile(1, i -> i + 1, i -> i < 20);     Println(a);     Println(a.Where(x -> x mod 3 = 0).Average);     Writeln();          for var i := ReadInteger('a =') to ReadInteger('b =') do         writeln(i, ' ', i * i, ' ', i * i * i); end.