{ File: eso1-2.pas }

{ Scopo: secondo esercizio della prima simulazione di una prova di esonero }

program Esonero2;

const
  N = 4;  { numero di righe }
  M = 5;  { numero di colonne }

type
  TipoMatrice =  array [1..N,1..M] of integer;

var
  nome_file      : string;
  finput         : text;
  h1, h2, k1, k2 : integer;

{*****************************************************************}
{*****************************************************************}
{***** NB la funzione Esercizio2 va messa nel file SOL2.PAS  *****}
{*****************************************************************}
{*****************************************************************}

{$I SOL2.PAS}  { Inclusione del file con la definizione della funzione
                 Esercizio2 }

begin
  { lettura del nome del file }
  writeln('Nome file?');
  readln(nome_file);

  { apertura del file in lettura }
  assign(finput, nome_file);
  reset(finput);
  
  { lettura degli indici che delimitano la sottomatrice }
  readln(finput, h1, h2, k1, k2);

  { attivazione della funzione Esercizio2 e stampa del risultato }
  writeln(Esercizio2(finput, h1, h2, k1, k2));

  close(finput)
end. { Esonero2 }