Нужно что-то присвоить функции для случая, когда (2*a+b-c)<0
Например, так:
function sqrt1 (a, b, c: real): real;
begin
if (2 * a + b - c) < 0 then
<span>begin writeln (' complex number '); sqrt1:=-1; end</span>
else sqrt1:= sqrt(2 * a + b - c);
<span>end;</span>
Я мог ошибиться в формуле. Она в цикле, перепроверь.
<u>данные</u> - это информация, обрабатываемая и хранящаяся на компьютере