Напишите программу для вычисления арифметического выражения : ...

Нюра

var b,a,c:real;

beginwrite('Введите a = ');readln(a);write('Введите c = ');readln(c);if (a0) and (c0) then begin проверка чтобы не было деления на 0!b:=sqrt(a*2-(c/4*a*c)-(a/7*c)); sqrt - это квадратный корень,а дальше думаю все понятно=)writeln('b = ',b:0:4);end else writeln('Ошибка!Деление на 0!');end.