rotest4.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

var a:array[1..10,1..10] of integer;
    b:array[1..100]of integer;
    m,n,i,j,s,p:integer;
begin
write('m=');readln(m);
write('n=');readln(n);
for i:=1 to m do
   for j:=1 to n do
                 begin
                 write('a[',i,',',j,']=');
                 readln(a[i,j]);
                 end;
for i:= 1 to m do
               begin
               b[i]:=0;
               for j:= 1 to n do b[i]:=b[i]+a[i,j];
               end;

for i:=1 to m do
              write(b[i]:4);
readln;
end.