066536 / 350a / 2

Program N350
const k=4;
const n=3;
var a: array[1..k,1..n] of integer;
i,j,b: integer;

begin

writeln('Vvedite iznachalnye dannye (',k,'x',n,'): ');
for i:=1 to k do begin
for j:=1 to n do
read(a[i][j]);
readln;
end;

write('Poluchennye dannye: ');
for i:=1 to k do begin
for j:=1 to n do
b:=b+a[i][j];
write(b,' ');
b:=0;
end;

readln;
end.