esercizi di fisicacon turbo pascal 1.1 su mac

(* conve1.fis immagini specchi convessi e lenti divergenti *)

program concavi;

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 specchi convessi o lenti divergenti');
 writeln('osservare variazione segno per q,g,i ');
 writeln('fuoco=-40..posizione sorgente iniziale=120..sorgente=50 ');
 writeln;
 for contatore:=1 to 10 do
  begin
  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.