esercizi di chimica con turbo pascal 1.1 su mac

program pesomo;
(* determinazione peso molecolare o peso formula *)

var p1,p2,p3,p4,peso:real;
    numero,n1,n2,n3,n4:integer;  

procedure fine;
begin
writeln('premi enter');
readln;
end;

procedure pausa;
begin
writeln('premi enter');readln;
end;

procedure pro2;
begin
write('peso atomico primo elemento      ');readln(p1);
write('indice primo elemento            ');readln(n1);
write('peso atomico secondo elemento    ');readln(p2);
write('indice secondo elemento          ');readln(n2);
peso:=p1*n1+p2*n2;
writeln('peso molecolare   = ',peso:8:4);
pausa;
end;

procedure pro3;
begin
write('peso atomico primo elemento      ');readln(p1);
write('indice primo elemento            ');readln(n1);
write('peso atomico secondo elemento    ');readln(p2);
write('indice secondo elemento          ');readln(n2);
write('peso atomico terzo elemento      ');readln(p3);
write('indice terzo elemento            ');readln(n3);
peso:=p1*n1+p2*n2+p3*n3;
writeln('peso molecolare   = ',peso:8:4);
pausa;
end;

procedure pro4;
begin
write('peso atomico primo elemento      ');readln(p1);
write('indice primo elemento            ');readln(n1);
write('peso atomico secondo elemento    ');readln(p2);
write('indice secondo elemento          ');readln(n2);
write('peso atomico terzo elemento      ');readln(p3);
write('indice terzo elemento            ');readln(n3);
write('peso atomico quarto elemento     ');readln(p4);
write('indice quarto elemento           ');readln(n4);
peso:=p1*n1+p2*n2+p3*n3+p4*n4;
writeln('peso molecolare   = ',peso:8:4);
pausa;
end;

procedure scelta;
var ancora:integer;
begin
clearscreen;
writeln('scrivi numero elementi presenti nella formula: 2,3,4 ');
write('oppure scrivi 0 per uscire da programma  ');readln(numero);
clearscreen;
case numero of
2:pro2;
3:pro3;
4:pro4;
0:fine;
end;
writeln('----------------------------');
writeln('altro problema:scrivi 1...fine:scrivi 2 ');readln(ancora);
if ancora =1 then scelta else fine;
end;

begin
clearscreen;
writeln('funzione programma:determinazione peso molecolare composto');
writeln('---------------------------------------------------');
writeln('premi enter');readln;
scelta;
end.