{* Задача 328 *}

Unit ZADACH328;
Interface
Implementation
Begin
 writeln('Даны числа а1, b1, c1, a2, b2, c2. Напечатать координаты точки пересечения прямых, описываемых уравнениями. a1x+b1y=c1 и a2x+b2y=c2 Либо сообщить, что эти прямые совпадают или вовсе не существуют ');
End.

Program zadach328;

Uses zadach328.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  x  : real;
  y  : real;
  a1 : real;
  b1 : real;
  c1 : real;
  a2 : real;
  b2 : real;
  c2 : real;
Begin
  writeln('vvedite a1, b1, c1, a2, b2, c2');
  readln(a1, b1, c1, a2, b2, c2);
  y := (c2 - a2 * c1 / a1) / (b2 - a2 * b1 / a1);
  x := (c1 - b1 * y) / a1;
  If (a1 * x + b1 * y = c1) And (a2 * x + b2 * y = c2) Then
    writeln ('priymie peresecaytsiy v t (', x : 3 : 1, ', ', y : 3 : 1, ')')
  Else writeln ('priymie ne peresecaytsiy');
    ;
  readln; {* Ждем подтверждения пользователя *}
End.