Помогите!!! Составить нужно по блок-схеме программу в паскале. То, что я сделала ошибку...

Question

Помогите!!! Составить нужно по блок-схеме программу в паскале. То, что я сделала ошибку выдает(

---

Answer 1

Var a,b,c:real;
begin
readln(a,b);
if a=b then writeln('Нельзя вычислить')
else if a<0 then writeln('Нельзя вычислить')<br>      else begin
           c:=sqrt(a)/(b-a);
           writeln('c = ',c:6:4);
           end;
end.

Пример:
8 3
c = -0.5657

Comments

огромное спасибо!

---

Пожалуйста.