Pengurangan Matriks

program kurang_matriks
kamus
x:array[1..4,1..4] of integer
y:array[1..4,1..4] of integer
hsl : array[1..4,1..4] of integer
i,j : integer
procedure input
procedure kurang

algoritma
input
kurang
{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 kurang
kamus

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