Даны числа а, b, c. Найти b²+√c/|a|
D := b*b + sqrt(c/abs(a)); Тут еще нужно проверять a на неравенство нулю. a, b, c - это целые или вещественные числа?
Целые.
Тогда if a <> 0 then ... end.