{ File: testrip1.pas }

{ Scopo: ordine dei dati in input ha effetto sulla necessita` o meno di
         usare array
         vedi file: testrip2.pas }

program RipetizioniTest;
{ Legge i risultati (ognuno dei quali e` un valore reale compreso tra 0 e 100)
  di 20 test, per ognuno dei quali sono state effettuate due ripetizioni.

  Stampa la media ed il numero d'ordine per quei test per i quali la media dei
  risultati delle due ripetizioni e` maggiore del valore assoluto della lora
  differenza.

  Assume che in ingresso vengano forniti per ogni test, il risultato della
  prima ripetizione seguito immediatamente dal risultato della seconda
  ripetizione.
}

const
  NumeroTest = 5;

type
  TipoRisultato = real;

var
  ris1, ris2, media : TipoRisultato;
  i                 : 1..NumeroTest;

begin
  for i := 1 to NumeroTest do
  begin
    write('Test ', i:2, ' - risultati delle due ripetizioni ? ');
    readln(ris1, ris2);
    media := (ris1 + ris2) / 2;
    if media > abs(ris1 - ris2) then
      writeln('Test ', i:2, ' valido! - Media risultati: ', media:7:2)
    else
      writeln('Test ', i:2, ' da scartare!')
  end
end. { RipetizioniTest }