esercizi di fisicacon turbo pascal 1.1 su mac

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

program rifra3;

var i,r,n:real;
    a,seni,senr,cosr,tanr:real;
    contatore,passo:integer;
    b:string;

procedure riflessione;
begin
 writeln('angolo incidenza=',i:2:2,'...angolo riflessione=',i:2:2);
end;

procedure rifrazione;
begin
  clearscreen;
 b:='----------------------------------------------------';
 i:=5;
 n:=1/1.55;
 passo:=5;
 writeln('legge della rifrazione:passaggio da acqua o vetro ad aria ');
 writeln(' n vetro=1/1.55 ');
 writeln;
 for contatore:=1 to 17  do
  begin
  if i<=40 then
  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:0,'...n=',seni/senr:2:2);
  i:=i+passo;
  end
  else
  begin
  i:=i+passo;
  riflessione;
  end;
  end;
  writeln('angolo limite tra 40 e 50:riflessione totale');
  writeln('premi enter per finire');
end;

begin
rifrazione;
readln;
end.