Найти сумму положительных элементов массива, стоящих на чётных местах

Program n1; const n=15; var sum,i: integer; a: array[1..n] of integer; begin randomize; sum: =0; writeln('массив: '); for i: =1 to n do begin a[i]: =random(10)-3; write(a[i],' '); if (i mod 2=0) and (a[i]> 0) then sum: =sum+a[i]; end; writeln; writeln('сумма: ',sum); end.

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.