помогите с информатикой!
Составьте программы на Паскале:
1)Вывести на экран первые десять членов последовательности,заданой формулой х(индекс n)=n^2-10.
например при n=5 должны выйти числа -9,-6,-1,6,15.
2)Вычислить среднее арифметическое целых чисел из диапазона от 6 до 50,кратных 3.
Можно написать как для 8 класса, пожалуйста ​

// 1)

begin

 var n := 1;

 var k := 10;

 while n <= k do

 begin

   Print(n * n - 10);

   n += 1

 end;

end.

// 2)

begin

 var n := 0;

 var Sum := 0;

 for var i:= 6 to 50 do

   if i mod 3 = 0 then

   begin

     n += 1;

     Sum += i

   end;

 Print(Sum/n)

end.