1.Найти сумму всех не отрицательных чисел кратных 5 в промежутке от 1 до 100 2.Найти сумму элементов двумерного массива, расположенной на главной плоскости массив 10;10

1)Program A1; var a,i:integer; begin a:=0; for i:=1 to 100 do if (i mod 5=0)and(i>0) then a:=a+i; writeln(a); end. 2)Program A2; var a: array [1..10,1..10] of integer; b,i,j:integer; begin writeln('Vvedi massiv'); for i:=1 to 10 do for j:=1 to 10 do readln(a[i,j]); b:=0; for i:=1 to 10 do b:=b+a[i,i]; writeln(b); end.