Как-то так... )))
Только в 12 точке к x добавила 0 (взяла 1010000 вместо 101000), а то некрасиво было..
Условию (Площадь < 2000) удовлетворяют 5 записей (Банда, Восточно-Китайское, Желтое, Охотское и Японское моря). Условию <span>(Наибольшая глубина > 5000) - 3 записи (Банда, Коралловое, Южно-Китайское). Итого, с учетом повторений - 7 записей.</span>
84 : 3 = 28
28 -1 = 27
27 : 3= 9
9 : 3 = 3
3-1=2
Ответ: 21121
Var
k, x, z: real;
begin
readln(x);
readln(z);
if x > z then
k := sqrt(2 * (x - z) / z);
if x <= z then
k := x + z;
println(k);
end.