К каждой задаче подберите программный код, который явлется ее решением

• Объекты 1
  • read\(a\);
    s := 0;
    for i:=a to 50 do
    s :=s+i*i;
  • p := 1;
    for i:=1 to 25 do
    p :=p*i;
  • Read\(N,a\);
    st := 1;
    for i:= 1 to N do
    st:=st * a;
  • Read\(N\);
    F := 1;
    while N>=2 do
    begin
    F:=F *N;
    N:=N -2;
    end;
  • s := 0;
    for i:=1 to N do
    s :=s+i;
• Объекты 2
  • Сумма квадратов всех целых чисел от a до 50
  • Произведение всех целых чисел от 1 до 25.
  • Вычисление степени a^n
  • Вычисление двойного факториала n!!
  • Сумма всех целых чисел от 1 до N