esercizi di fisicacon turbo pascal 1.1 su mac

(* lentec.fis immagini lenti convergenti *)

program lentec;

var p,q,i,g:real;
    s,f:integer;
    contatore,passo:integer;
    b:string;
begin
  clearscreen;
 b:='----------------------------------------------------';
 f:=40;
 p:=120;
 s:=50;
 passo:=10;
 writeln('legge punti coniugati per lente convergente');
 writeln('osservare segno di q,g,i positivo o negativo');
 writeln;
 for contatore:=1 to 11 do
  begin
  if p=2*f -passo then writeln(b);
  if p=f then
  begin
  writeln('sorgente su fuoco=immagine a infinito');
  p:=p-passo;
  end;
  q:=f*p/(p-f);
  g:=q/p;
  i:= s*g;
  write('dsorgente=',p:3:0,'...dimmagine=',q:3:0);
  writeln('...g=',g:3:2,'...altezzas=',s,'...altezzai=',i:3:0);
  p:=p-10;
  end;
  writeln('premi enter per finire');
  readln;
end.