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

1)Program A1;vara,i:integer;begina:=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;vara: array [1..10,1..10] of integer; b,i,j:integer;beginwriteln('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.