Написать программу для вычисления значения выражения d+(d^2-25)/c

var   d,c:integer;   s:real; begin readln(d,c); s:=d+(d*d-25)/c writeln(s); end.