БОЛЬШЕ НЕТУ БАЛОВ
Чертежник в точке В. Что нужно написать вместо a и b в команде "сместиться на вектор (a, b)", чтобы он попал в точку Б? Шаг сетки равен 1.

a
Введите целое число или десятичную дробь…
b Введите целое число или десятичную дробь

​​

Средняя глубина Черного моря — 1271 м, наибольшая- 2245 метров (вблизи Синопа). Протяженность моря между западной и восточной точками —около 1167 км, между северной и южной-624 километра. Наименьшая протяженность акватории в меридиональном направлении, между Крымом и берегом Анатолии (азиатской части Турции), 263 км. Длина береговой линии Черного моря — 4090 км, коэффициент изрезанности — около 1,8.На площади, занятой Черным морем, можно разместить две Великобритании. Азовское море соединяется с Чёрным морем Керченским проливом. Площадь его — около 38000 кв. км. Преобладающие глубины — 9-13 м, наибольшая — 14,5 м. Берега изрезаны слабо. Крупнейший залив - Таганрогский; у западного берега - система мелких заливов Сиваш. Южный берег моря холмистый, для северного и северо-восточного берегов характерны косы. В Азовское море впадают реки Дон, Кубань и другие, образуя лиманы. Климат континентальный, средняя температура воздуха летом +23?-24?, зимой -7 ?С. С конца декабря до конца февраля покрывается льдом. Течения неустойчивы. Вода отличается мутностью, море богато рыбой: судак, лещ, кефаль, осётр, и т. д. Главные порты: Ростов-на-Дону, Таганрог, Азов.

var
  p1, p2, buf: real;
  n: byte;

begin
  readln(n);
  for i: byte := 1 to n do
  begin
    readln(buf);
    if (buf > 0) then
      if (p2 = 0) then
        p2 := buf
      else
        p2 := p2 * buf
    else
      if (p1 = 0) then
        p1 := buf
      else
        p1 := p1 * buf;
  end;
  
  writeln('P1 = ', p1, #13, 'P2 = ', p2);
  
  if (abs(p1) > abs(p2)) then
    writeln('|', p1, '| > |', p2, '|')
  else
    if (abs(p1) < abs(p2)) then
      writeln('|', p1, '| < |', p2, '|')
    else
      writeln('|', p1, '| = |', p2, '|')
end.