Напишите программу для вычисления арифметического выражения: b=√ а 2-с: 4 ас — а: 7 с…

var b,a,c: real; beginwrite ('Введите a='); readln (a); write ('Введите c='); readln (c); if (a<>0) and (c<>0) 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.