Пример В) uses crt;var f,a,b,c:real;beginwriteln ('Введите число A');readln (a);writeln ('Введите число B');readln (b);writeln ('Введите число C');readln (c);F:=(sqrt(sqr(b)*2)-4*a*c);writeln('Ответ: ',f:2:1);end.
В ходе лабораторных и математических исследований я выяснил, что эта ерунда нафиг не нужна в современной информатике (только если вы не работаете преподом)