esercitazione su matrici , con turbo pascal

program matri3;
(* inserimento e stampa matrice valori interi *)
(* matrice con righe e colonne prefissate *)

Program matri3;
(* inserimento e stampa matrice valori interi *)
(* matrice con righe e colonne prefissate     *)

   uses crt;
  const righe=6;colonne=4; 
  
  var mat:array[1..righe,1..colonne] of integer;
      r,c:integer;
         
begin
writeln('scrivi valori interi per la matrice:ENTER dopo ogni valore');
writeln;
for r:=1 to righe do
begin
for c:=1 to colonne do
begin
write('riga ',r,' colonna ',c,' valore = ');
readln(mat[r,c]);end;
end;
writeln;writeln('premi ENTER');readln;clrscr;
writeln('stampo la matrice inserita ');writeln;
for r:=1 to righe do
begin
for c:=1 to colonne do
begin
write(mat[r,c]:5);
end;
writeln;
end;
writeln;writeln;
writeln('chiama insegnante per verificare e valutare ');readln;readln;
end.