составить программу вычесления для любого из вырожений.пожалуйста Пожалуйста посчитайтене понимаю как делатьопишите или сделайте хотя-бы один ПОЖАЛУЙСТА

Пример В)
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.