esercizi di matematica con turbo pascal 1.1 su mac

program ordine3;
    (* regola pratica per determinante terzo ordine *)

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

    procedure fine;
    begin
    exit;
    end;
    

    procedure calcola;
    begin
        clearscreen;
    s:='      ';
    writeln('calcolo determinante terzo ordine:regola di SARRUS ');
    writeln('soluzione sistema con tre equazioni e tre incognite ');
    writeln('scrivi i valori interi dei coefficienti e termini noti');
    writeln('------------------');
    writeln('a1  b1  c1 n1');
    writeln('a2  b2  c2 n2');
    writeln('a3  b3  c3 n3');
    writeln('-------------------');
    write('a1=');readln(a1);
    write('b1=');readln(b1);
    write('c1=');readln(c1);
    write('n1=');readln(n1);
    write('a2=');readln(a2);
    write('b2=');readln(b2);
    write('c2=');readln(c2);
    write('n2=');readln(n2);
    write('a3=');readln(a3);
    write('b3=');readln(b3);
    write('c3=');readln(c3);
    write('n3=');readln(n3);
    writeln('--------------------');
    writeln(a1,s,b1,s,c1,s,n1);
    writeln(a2,s,b2,s,c2,s,n2);
    writeln(a3,s,b3,s,c3,s,n3);
    writeln;
    ds:=a1*b2*c3+b1*c2*a3+c1*a2*b3-a3*b2*c1-b3*c2*a1-c3*a2*b1;
    

    writeln('-----------------------------------');
    writeln('premi 1 per altro calcolo');
    writeln('premi 2 per finire');
    write('scelta 1 o 2 ? ');readln(scelta);
    case scelta of
    1:calcola;
    2:fine;
    end;
    end;
    

    begin
        clearscreen;
    calcola;
    end.