Program Matriks

program matrik;
uses wincrt;
var a:array[1..10,1..10] of real;
i,j,baris,kolom:integer;

begin
write('ukuran matrik mxn ');
readln(baris,kolom);
writeln('memasukkan elemen matrik');
writeln(' ');
for i:=1 to baris do
begin
writeln('baris ke-',i);
for j:=1 to kolom do
read(a[i,j]);
writeln;
end;

writeln('hasil matrik');
for i:=1 to baris do
begin
for j:=1 to kolom do
write(a[i,j]:0:0,' ');
writeln;
end;
end.