esercizi di matematica con turbo pascal 1.1 su mac

program ordine2;
    (* regola pratica per determinante terzo ordine *)
    (* dati da inserire da tastiera  *)
    (* variante di ordine1 *)
    

    var a1,a2,a3,b1,b2,b3,c1,c2,c3,scelta:integer;
        ds:real;
        s:string;
    

    procedure dati;
    begin
       clearscreen; 
    s:='      ';
    writeln('calcolo determinante terzo ordine:regola di SARRUS ');
    writeln('scrivi i valori richiesti:enter dopo ogni valore ');
    write('a1=');readln(a1);
    write('b1=');readln(b1);
    write('c1=');readln(c1);
    write('a2=');readln(a2);
    write('b2=');readln(b2);
    write('c2=');readln(c2);
    write('a3=');readln(a3);
    write('b3=');readln(b3);
    write('c3=');readln(c3);
    writeln('-----------------------');
    writeln(a1,s,b1,s,c1,s,a1,s,b1);
    writeln(a2,s,b2,s,c2,s,a2,s,b2);
    writeln(a3,s,b3,s,c3,s,a3,s,b3);
    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;
    writeln('scrivi 1 per altro calcolo...2 per fine ');
    write('scelta 1 o 2 ? ');readln(scelta);
    case scelta of
    1:dati;
    2:exit;
    end;
    end;
    

    begin
       clearscreen; 
    dati;
    end.