Дан массив M на N (m и N<=30) Опции

[agressor]

Дан массив m на n (m и n<=30) Добавить строку L .
Найти сумму всех элементов кратных 3.
Матрицу вювести два раза до и после.
Помогите пожалуйста.

[klem4]

Ну чо вот так чтоли ??? )) чушь полная ))

Код

uses crt;
type
  mass=array[1..30,1..30] of integer;
var x:mass;
  i,j,k,s,rnd,n,m:integer;

procedure input;
begin
   for i:=1 to n do
     begin
        for j:=1 to m do
         begin
            x[i,j]:=random(rnd);
            write(x[i,j]:2);
            write(' ');
         end;
      writeln;
  end;
end;
procedure newString;
begin
  k:=n+1;
   for j:=1 to m do
    begin
       write('x[',k,',',j,']=');
       readln(x[k,j]);
    end;
end;

procedure output;
begin
   for i:=1 to k do
    begin
       for j:=1 to m do
        begin
           write(x[i,j]:2);
           write(' ');
        end;
        writeln;
    end;
end;

function sum(x:mass):integer;
begin
  s:=0;
  for i:=1 to k do
   for j:=1 to m do
    if x[i,j] mod 3 = 0 then
      s:=s+x[i,j];
  writeln('s=',s);
end;

Begin
 clrscr;
 write('n=');readln(n);
 write('m=');readln(m);
 write('rnd=');readln(rnd);
 writeln;
 input;
 writeln;
 newstring;
 writeln;
 output;
 writeln;
 sum(x);
 repeat
  keypressed;
 until keypressed;
End.