esercizi di fisicacon turbo pascal 1.1 su mac

(* rifra2.fis indice di rifrazione e angolo limite *)

program rifra2;

var i,r,n:real;
    a,seni,senr,cosr,tanr:real;
    contatore,passo:integer;
    b:string;
begin
  clearscreen;
 b:='----------------------------------------------------';
 i:=1;
 n:=1/1.55;
 (* oppure metti n:=1.33 *)
 passo:=1;
 writeln('legge della rifrazione:passaggio da acqua o vetro ad aria ');
 writeln('n acqua=1.33   n vetro=1.55 ');
 writeln;
 for contatore:=1 to 40  do
  begin
  if (contatore=10) or (contatore=20) or(contatore=30) then
  begin
  writeln('------premi enter--------');
  readln;
  end;
  seni:=sin(i*3.14/180);
  senr:=seni/n;
  cosr:=sqrt(1-sqr(senr));
  tanr:=senr/cosr;
  r:=arctan(tanr)*180/3.14;
  write('angolo i=',i:2:0,'....sin(i)=',seni:2:2);
  writeln('....sin(r)=',senr:3:2,'....r=',r:2:0,'...n=',seni/senr:2:2);
  i:=i+passo;
  end;
  writeln('premi enter per finire');
  readln;
end.