program sun;
uses crt;
label 1,2;
var
 a1,a2,b1,b2,c,d,f:integer;
 fx,fy,x,y:real;
 k,u:string;
begin
 repeat
 1:clrscr;
 writeln('sisesta kuus real arv: a1 ,a2 ,b1 ,b2 ,c ,d ');
 writeln;
 readln(a1 ,a2 ,b1 ,b2 ,c ,d );
 writeln;
 writeln(a1,'x+',b1,'y=',c);
 writeln(a2,'x+',b2,'y=',d);
 f:=(a1*b2-a2*b1);
 if f=0 then
   begin
     writeln;
     writeln('Система имеет много решений,например:(o,o)');
     writeln('Завершить прогпамму? y/n');
     readln(u);
     if u='n' then goto 1;
     if u='y' then goto 2;
   end
 else
   begin
     fx:=(c*b2-d*b1);
     fy:=(d*a1-c*a2);
     writeln;
     writeln('x=fx/f');
     writeln('fx=',fx:5:2);
     writeln('f=',f);
     writeln('x=',fx/f:5:2);
     writeln;
     writeln('y=fy/f');
     writeln('fy=',fy:5:2);
     writeln('f=',f);
     writeln('y=',fy/f:5:2);
   end;
  writeln;
  writeln('Завершить программу? y/n');
  readln(k);
 until (k='y') or (k='Y');
 2:end.{ALL RIGHTS RESERVED}