Срочно!!!Есть 10 минут!!! Нужно сделать в Паскале y=b^2+4ac/4bc

Question

Срочно!!!Есть 10 минут!!!
Нужно сделать в Паскале y=b^2+4ac/4bc

Answer 1

Var a,b,c:integer;
y: real;
begin
readln(a,b,c);
y:=(b*b)+(4*a*c)/(4*b*c);
writeln(y:0:2);
end.