esercizi di chimica con turbo pascal 1.1 su mac

Program tipoco;
(* esempio INTERATTIVO riconoscimento tipo composto *)

const n=24;
var a:array[1..n] of string[10]; (* formule *)
    x:array[1..n] of string[20]; (* tipo composto *)     
      esatte,errate,totale,k,numero:integer;
      fo:string[20];
      

procedure cancella;
begin
clearscreen;
end;

procedure dati;
begin
a[1]:='H2SO4';a[2]:='Ca(OH)2';a[3]:='NaCl';
a[4]:='H2SO3';a[5]:='Fe(OH)2';a[6]:='CaCl2';
a[7]:='HNO3';a[8]:='CaO';a[9]:='SO3';
a[10]:='NaH';a[11]:='AlH3';a[12]:='HF';
a[13]:='H2CO3';a[14]:='Na(OH';a[15]:='KBr';
a[16]:='HClO3';a[17]:='Mg(OH)2';a[18]:='CaS';
a[19]:='HNO2';a[20]:='K2O';a[21]:='N2O5';
a[22]:='CaH2';a[23]:='FeH3';a[24]:='HBr';

x[1]:='ossiacido';x[2]:='idrossido';x[3]:='sale';
x[4]:='ossiacido';x[5]:='idrossido';x[6]:='sale';
x[7]:='ossiacido';x[8]:='ossido basico';x[9]:='ossido acido';
x[10]:='idruro';x[11]:='idruro';x[12]:='idracido';
x[13]:='ossiacido';x[14]:='idrossido';x[15]:='sale';
x[16]:='ossiacido';x[17]:='idrossido';x[18]:='sale';
x[19]:='ossiacido';x[20]:='ossido basico';x[21]:='ossido acido';
x[22]:='idruro';x[23]:='idruro';x[24]:='idracido';
end;
procedure esegue;
begin 
k:=1;esatte:=0;errate:=0;totale:=0;
for numero :=1 to n do
begin
 writeln('tipi di composti da usare per rispondere:');
 writeln('ossido basico,ossido acido,idrossido,idruro,idracido');
 writeln('ossiacido,sale');
 writeln('-----------------------------------------------------');
 writeln('scrivi a quale tipo di composto appartiene la formula:');
 write(a[k],'.....');readln(fo);writeln;
 if fo=x[k] then begin writeln('esatto');esatte:=esatte+1;end
 else begin writeln('errato:era  ',x[k]);errate:=errate+1;end;
 writeln('---------------------');
 writeln('esatte=',esatte);
 writeln('errate=',errate);
 writeln('rimanenti=',n-k);
 writeln('-----------------------');
 writeln('premi enter');readln;
 k:=k+1;
  cancella;
  end;
  totale:=esatte+errate;
  writeln('esatte =',esatte);
  writeln('errate =',errate);
  writeln('totale =',totale);
  writeln('chiama insegnante per valutazione ');readln;cancella;
  end;

  
begin
cancella;
writeln('scopo del programma:riconoscere tipo di composto proposto');
writeln('ossido basico,ossido acido,idruro,idracido,idrossido');
writeln('ossiacido,sale');
writeln('premi INVIO per proseguire');readln;cancella;
dati;
esegue;

end.