turbo pascal v.1.1 per mac

program fara5;
(* problemi su leggi di faraday *)

const f=96500;
var r,a,b,c,d:real;
    s,v:integer;
    ma,pa,va,i,se:string;
    as,bs,cs,ds,es:string;
    f1,f2,f3,f4,f5,fx:string;
    

procedure calcola1(a,b,c,d:real;risposta,fx:string);
begin
writeln('formula risolutiva =',fx);writeln;
r:=a*b*c/(f*d);
if s=2 then writeln(risposta,'..',round(r):8) else
writeln(risposta,'...',r:8:2);
write('premi enter');readln;
end;

procedure calcola2(a,b,c,d:real;risposta,fx:string);
var mi,ore:real;
begin
writeln('formula risolutiva = ',fx);WRITELN;
r:=a*b*f/(c*d);
writeln(risposta,'...',r:8:2);
if s=5 then 
begin
mi:=r/60;
ore:=r/3600;
writeln('minuti =',mi:8:2);
writeln('ore    =',ore:8:2);
end;
write('premi enter');readln;
end;

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

procedure dati;
var sx:string;
begin
sx:='...';
if s=1 then begin as:=pa;bs:=i;cs:=se;ds:=va;es:=ma;fx:=f1;END ELSE
if s=2 then begin as:=pa;bs:=i;cs:=se;es:=va;ds:=ma;fx:=f2;END ELSE
if s=3 then begin es:=pa;cs:=i;ds:=se;bs:=va;as:=ma;fx:=f3;END ELSE
if s=4 then begin cs:=pa;es:=i;ds:=se;bs:=va;as:=ma;fx:=f4;END ELSE
if s=5 then begin ds:=pa;cs:=i;es:=se;bs:=va;as:=ma;fx:=f5;end;

writeln('formula risolutiva ',fx);
writeln('elemento incognito ',es);
writeln('dati da inserire   ');
writeln(as,sx,bs,sx,cs,sx,ds);
writeln;
write(as);readln(a);
write(bs);readln(b);
write(cs);readln(c);
write(ds);readln(d);
IF s<=2 then calcola1(a,b,c,d,es,fx) else if s>2 then calcola2(a,b,c,d,es,fx);
end;

procedure scelta;
var ancora:integer;
begin
clearscreen;
writeln('seleziona tipo problema ');
writeln('1...cerca massa in grammi ');
writeln('2...cerca valenza sostanza ');
writeln('3...cerca peso atomico sostanza ');
writeln('4...cerca intensita in ampere ');
writeln('5...cerca tempo in secondi ');
writeln('6...fine ');
readln(s);
clearscreen;
if s<6 then dati;
writeln('----------------------------');
writeln('altro problema:scrivi 1...fine:scrivi 2 ');readln(ancora);
if ancora =1 then scelta else fine;
end;

begin
clearscreen;
ma:='massa in grammi=';
pa:='peso atomico=';
va:='valenza =';
i:='intensita=';
se:='secondi=';
f1:='massa=peso atomico*intensita*tempo/valenza*faraday';
f2:='valenza=peso atomico*intensita*tempo/massa*faraday';
f3:='peso atomico=massa*valenza*faraday/intensita*tempo';
f4:='intensita=massa*valenza*faraday/peso atomico*tempo';
f5:='tempo=massa*valenza*faraday/peso atomico*intensita';
writeln('formule per soluzione problemi su leggi di FARADAY ');
writeln('si deve inserire su richiesta:');
writeln('massa in grammi');
writeln('intensita in ampere ');
writeln('tempo in secondi ');
writeln('valenza e peso atomico');
writeln('-----------------------------');
writeln('premi enter');
scelta;
end.