esercizi di chimica con turbo pascal 1.1 su mac

program legami;
(* test con valutazione su natura legami chimici *)

const n=20;

var a,r,prove,esatte,errate:integer;
    s:array[1..n] of string[20];
    g:array[1..n] of integer;
    

procedure cancella;
begin
 clearscreen;
end;

procedure dati;
begin
s[1]:='H,H';g[1]:=2;
s[2]:='H,Cl';g[2]:=3;s[3]:='H,Br';g[3]:=3;
s[4]:='H,O';g[4]:=3;s[5]:='H,S';g[5]:=3;
s[6]:='S,O';g[6]:=3;s[7]:='N,H';g[7]:=3;
s[8]:='N,O';g[8]:=3;s[9]:='N,N';g[9]:=2;
s[10]:='Cl,O';g[10]:=3;s[11]:='Na,F';g[11]:=1;
s[12]:='K,Cl';g[12]:=1;s[13]:='Br,O';g[13]:=3;
s[14]:='Ca,O';g[14]:=1;s[15]:='Mg,F';g[15]:=1;
s[16]:='Al,F';g[16]:=1;s[17]:='Zn,F';g[17]:=1;
s[18]:='P,O';g[18]:=3;s[19]:='S,S';g[19]:=2;
s[20]:='F,F';g[20]:=2;

end;

procedure scelta;
begin
cancella;
esatte:=0;errate:=0;
for a:=1 to prove do
begin
writeln('scrivere tipo di legame presente tra elementi indicati');
writeln(s[a]);
writeln('---------------------------------------------');
writeln('1...legame ionico');
writeln('2...legame covalente omopolare');
writeln('3...legame covalente polare');
writeln('--------------------------------------------');
writeln;
writeln('legame= 1,2,3 ? ');readln(r);
writeln('--------------------------------------------');
if r=g[a] then begin writeln('esatto');esatte:=esatte+1;end
else begin writeln('errato:era :',g[a]);errate:=errate+1;end;
writeln;
writeln('premi INVIO per proseguire');readln;cancella;
end;
end;

begin
cancella;
dati;
repeat
write('indicare numero di prove <21 ');readln(prove);
until prove<21;
scelta;
cancella;
writeln('risposte esatte  =',esatte);
writeln('risposte errate  =',errate);
writeln('chiamare insegnante per valutazione ');readln;
cancella;
end.