{* Задача 518 *}

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

Program zadach518;
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.