esercizi di matematica con turbo pascal 1.1 su mac

program ordine1;
   (* regola pratica per determinante terzo ordine *)
   (* dati assegnati da programma per esempio *)
   

   var a1,a2,a3,b1,b2,b3,c1,c2,c3:integer;
       ds:real;
       s:string;
   begin
     clearscreen;
   s:='      ';
   writeln('calcolo determinante terzo ordine:regola di SARRUS ');
   a1:=2;b1:=-2;c1:=-1;
   a2:=1;b2:=3;c2:=2;
   a3:=0;b3:=1;c3:=3;
   writeln(a1,s,b1,s,c1);
   writeln(a2,s,b2,s,c2);
   writeln(a3,s,b3,s,c3);
   writeln;
   ds:=a1*b2*c3+b1*c2*a3+c1*a2*b3-a3*b2*c1-b3*c2*a1-c3*a2*b1;
   writeln('determinante=',ds:4:3);
   readln;
   end.