Составте программу для задачи Нахождение среднего арифметического чисел до 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.