Вот все сделал. Таблица в Excel, все уже посчитано
Разделения на колонки не видны. понять можно только проверит зайдя на "разметка страницы-колонки" или во время написания самого текста
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.