esercizi di fisicacon turbo pascal 1.1 su mac

(* rifra1a.fis indice di rifrazione *)

program rifra1a;

var i,r,n:real;
    a,seni,senr,cosr,tanr:real;
    contatore,passo,fine:integer;
    b:string;
begin
  clearscreen;
 b:='----------------------------------------------------';
 i:=10;
 n:=1.55;
 (* oppure metti n:=1.33 *)
 passo:=10;
 fine:=9;
 writeln('legge della rifrazione:passaggio da aria ad acqua o vetro ');
 writeln('n acqua=1.33   n vetro=1.52 ');
 writeln;
 for contatore:=1 to fine do
  begin
  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:2,'...n=',seni/senr:2:2);
  i:=i+passo;
  end;
  writeln('premi enter per finire');
  readln;
end.