{ Решить систему ур-ий {ax+by+c=0 и a1x+b1y+c1=0 }

uses crt;
var flag,a,a1,b,b1,
c,c1,x,y,s,s1 : longint;
begin
  clrscr;
  flag:=0;
    write('a=');readln(a);
    write('b=');readln(b);
    write('c=');readln(c);
    write('a1=');readln(a1);
    write('b1=');readln(b1);
    write('c1=');readln(c1);
  for x:=-10 to 10 do
  for y:=-10 to 10 do
  begin
    s:=a*x+b*y+c;
    s1:=a1*x+b1*y+c1;
    if (s=0)and(s1=0)
    then begin
           flag:=1;
    writeln('x=',x,'y=',y);
         end;
  end;
  if flag=0 then 
  write('в заданной области 
  реш. нет');
  readln;
end.