matrix.pas

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

program Matrix;
{sa se citeasca elementele unui vector pana cand suma lor depaseste 100}
var
   s,i:integer;
   a:array[1..100] of integer;
begin
s:=0;
i:=1;
repeat
            begin
                 write('a[',i,']= ');
                 readln(a[i]);
                 s:=s+a[i];
                 i:=i+1;
            end;
until s>100;
writeln('s= ',s);
end.