СРОЧНО!!СРОЧНОООООООООООО!!!ПОЖАЛУЙСТААА

у меня оно не так показывает

ну все равно спасибо большое)

var q: integer;    s: real;begin  q:=0;  repeat    inc(q);    s:=sqr(q)*q/125 - sqr(q) -90*q + 10000;  until s<0;  writeln('объем выпуска: ',q);  s:=(sqr(q)*q/125-sqr(q)+180*q+10000)/q;  writeln('затраты на единицу: ',s:5:2);end.объем выпуска: 86затраты на единицу: 269.45