PROGRAM:LIKNSETT :ClrHome :Disp ”AX+BY=C

PROGRAM:LIKNSETT
:ClrHome
:Disp ”AX+BY=C”
:Disp “DX+EY=F”
:Prompt A,B,C,D,E,F
:A*E – B*DG
:If G=0
:Then
:Disp “UBESTEMT ELLER INGEN LOSNING”
:Else
:(C*E – B*F)/G X
:(A*F – C*D)/G Y
:Disp “X = ”,XFrac
:Disp “Y = ”,YFrac