{* Задача 109 *}

Unit ZADACH109;
Interface
Implementation
Begin
 writeln('Решить систему уравнений {ax+by+c=0 и a1x+b1y+c1=0 ');
End.

Program zadach109;

Uses zadach109.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  flag : longint;
  a    : longint;
  a1   : longint;
  b    : longint;
  b1   : longint;
  c    : longint;
  c1   : longint;
  x    : longint;
  y    : longint;
  s    : longint;
  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; {* Приостановка программы. Ожидание Enter *}
End.