Табулирование функции с выводом результата по условию

[shozanah]

Целочисленная функция F(k)=k*k*k-25*k*k+500*k+1000 определена только для целых значений аргумента К. Составить программу вычисления значений функции f(K) для 20 значений аргумента К в интервале (-30,60) с выводом лишь тех значений, которые удовлетворяют заданному условию, и подсчетом остальных ее значений. Для проверки работы программы задать значение: А=30000, B=60000. M=4.

Значение f(K) заключено либо между значениями T1=sqrt(A+B+M), T2=M*sqrt(A+B), либо между значениями T3=sqrt(A*B*M),T4=M*sqrt(A*B)


program z193;
var
a,b,m,i,j:integer;
t1,t2,t3,t4,x,y,k:real;
begin
writeln ('vvedite A,B and M');
readln (a,b,m);
x:=(60+30)/20;
K:=-30;
for i:=1 to 30 do
begin
y:=k*k*k-25*k*k+50*k+1000;
t1:=sqrt(a+b+m);
t2:=m*sqrt(a+b);
t3:=sqrt(a*b*m);
t4:=m*sqrt(a*b);
if ((y>t1) and (y<t2)) or ((y>t3) and (y<t4)) then
writeln ('y') else j:=j+1;
k:=k+x;
end;
writeln (j);
readln;
end.