---

var
  a, b, c, d: array[1..100] of integer;
  n, i, j: integer;
  found: boolean;
begin
  writeln('Число прямых:');
  readln(n);
  writeln('Введите a, b, c для каждой прямой:');
  for i := 1 to n do
    readln(a[i], b[i], c[i]);
  found := false;
  for i := 1 to n-1 do
    for j := i+1 to n do
      if a[i]*b[j] = a[j]*b[i] then
      begin
        if (a[i]*c[j] = a[j]*c[i]) and (b[i]*c[j] = b[j]*c[i]) then
          writeln('Прямые ', i, ' и ', j, ' совпадают')
        else
          writeln('Прямые ', i, ' и ', j, ' параллельны');
        found := true;
      end; 
  if not found then
    writeln('Нет параллельных или совпадающих прямых');
end.