tugas algoritma,,,

Perkalian matrik
Kamus
Type
Larik = Array [ 1..30, 1..30 ] of real
Var
I, J, K : Byte
A, B, C : Larik
M, N, L : Byte
Algo
Read ( M, N, L )
{ Membuat Matrik 1 }
Writeln ( ‘ Matrik 1 ‘ )
For I 1 to M do
{
For J 1 to N do
{
Read ( A [ I, j ] )
}
{ Membuat Matrik 2 }
Writeln ( ‘ Matrik 2 ‘ )
For I 1 to N do
{
For J 1 to L do
{
Read ( B [ I, j ] )
}
{ Perkalian Matrik }
For I 1 to M do
{
For J 1 to N do
C [ I, J ] 0
For K 1 to L do
C [ I, j ] C [ I, j ] + ( A [ I, j ] * B [ I, j ] )
{ Mencetak Hasil Kali Matrik }
For I 1 to M do
For I 1 to L do
Write ( C [ I, j ] : 10 : 2 )
writeln