Penjumlahan Matriks

program jumlah_matriks
kamus
x:array[1..4,1..4] of integer
y:array[1..4,1..4] of integer
jmlh : array[1..4,1..4] of integer
i,j : integer
procedure input
procedure jumlah

algoritma
input
jumlah
{end Of program}

procedure input
kamus lokal

algoritma
i traversal [1..4] do begin
j traversal [1..4] do begin
output('matriks1 ',i,',',j,' : ')
input(x[i,j])
end
end

i traversal [1..4] do begin
j traversal [1..4] do begin
output('matriks2 ',i,',',j,' : ')
input(y[i,j])
end
end
{end of procedure}

procedure jumlah
kamus

algoritma
i traversal [1..4] do begin
j traversal [1..4] do begin
jmlh[i,j]<--x[i,j] + y[i,j]
output('jumlah ',i,',',j,' : ',jmlh[i,j])
end
end
{end of procedure}