Pascal вычислить сумму 1^4+2^4++n^4 (while, repeat until или for)

Program al; var n,i,s: integer; begin writeln('vvedite n ='); readln(n); s: =0; for i : = 1 to n do s: =s+sqr(i)*sqr(i); writeln ('s=',s); readln; end.

Program t1; const   j = 18 var   n,j, i, s,s1: integer;   mas: array [1..j] of integer; begin       randomize;       writeln ('сгенерированный масив: ');       for i : = 1 to j do       begin           mas[i] : = random (70) - 35;           write (mas[i]);       end;             s: = 0; s1: =0;       for i : = 1 to j do       begin           if (i mod 2 =0) then s : = s+mas[i];                           //сумма четных элементов           if (mas[i] > = 0) then s1 : = s1 + mas[i];             //сумма неотрицательных элементов       end;           writeln ('среднее арифметическое четных элементов:   ', s/18);       writeln ('сумма неотрицательных элементов:   ', s1);       writeln ('массив после замены элементов:   ');               for i : = 1 to j do       begin                if (i mod 2 =0) then mas[i] : = 5 else mas[i] : = 0;           write (mas[i]);         end;               end; end.