program cramer(input,output);

uses crt;

var

a,b,c,d,e,f,x,y:real;

function determinante(m,n,p,q:real):real;

begin

determinante:=m*q-p*n;

end;

(*programma principale*)

begin

clrscr;

(*acquisizione dei coefficienti delle due equazioni*);

writeln('inserisci i coefficienti della prima equazione ');

writeln;

writeln('0 per quelli mancanti ');

writeln;

readln(a,b,c);

writeln('inserisci i coefficienti della seconda equazione ');

writeln;

writeln('0 per quelli mancanti ');

writeln;

readln(d,e,f);

writeln;

if determinante(a,b,d,e)<>0 then

begin

x:=determinante(c,b,d,e)/determinante(a,b,d,e);

y:=determinante(a,c,d,f)/determinante(a,b,d,e);

writeln('x = ',x:4:2);

writeln('y = ',y:4:2);

end

else

if (determinante(a,b,c,d)=0) or ( determinante(a,c,d,f)=0) then

writeln('sistema indeterminato')

else writeln('sistema impossibile');

readln;

end.