Составить мнемотехническую аббревиатуру для запоминания признаков классификации информации. подсказка: в санкт-петербурге есть торговый центр, название которого связано с испанией.

//когда глеб расстроился //pascal abc.net 3.1 сборка 1256 var   a,b,c,d,e: real;   procedure cube(a,b,c,d,e: real); var   p,q,delta,phi,i: real;   y: array[1..3] of real; begin p: =(3*a*c-sqr(b))/(3*sqr(a)); q: =(2*power(b,3)-9*a*b*c+27*sqr(a)*d)/(27*power(a,3)); delta: =power(q/2,2)+power(p/3,3); if delta< 0 then   begin   if q< 0 then     phi: =arctan(sqrt(-delta)/(-q/2));   if q> 0 then     phi: =arctan(sqrt(-delta)/(-q/2))+pi;   if q=0 then     phi: =pi/2;   y[1]: =2*sqrt(-p/3)*cos(phi/3);   y[2]: =2*sqrt(-p/3)*cos(phi/3+(2*pi)/3);   y[3]: =2*sqrt(-p/3)*cos(phi/3+(4*pi)/3);   var x: =seq(y[1]-b/(3*a),y[2]-b/(3*a),y[3]-b/(3*a));   write(x.where(x -> x< > e).where(x -> frac(x)=0).where(x -> x> =0).where(x -> x< =1000).distinct.count);   end; if delta> 0 then   begin   var arsom: =range(0,1000).where(x-> (a*power(x,3)+b*x*x+c*x+d)/(x-e)=0);   write(arsom.count);   {мы не виноваты, паскаль не может в комплексные числа}   end; if delta=0 then   begin   y[1]: =2*power(-q/2,1/3);   y[2]: =-power(-q/2,1/3);   var x: =seq(y[1]-b/(3*a),y[2]-b/(3*a));   write(x.where(x -> x< > e).where(x -> frac(x)=0).where(x -> x> =0).where(x -> x< =1000).distinct.count);   end; end; procedure square(a,b,c,e: real); var   d: real; begin d: =sqr(b)-4*a*c; if d< 0 then writeln('0'); if d> 0 then   begin   var x: =+sqrt(d))/(2*-sqrt(d))/(2*a));   write(x.where(x -> x< > e).where(x -> frac(x)=0).where(x -> x> =0).where(x -> x< =1000).distinct.count);   end; if d=0 then   begin   var x: =arr(-b/(2*a));   write(x.where(x -> x< > e).where(x -> frac(x)=0).where(x -> x> =0).where(x -> x< =1000).distinct.count);   end; end; procedure common(a,b,e: real); begin   var x: =arr(-b/a);   write(x.where(x -> x< > e).where(x -> frac(x)=0).where(x -> x> =0).where(x -> x< =1000).distinct.count); end; procedure awfulvar(e: real); begin   if (e> =0) and (e< =1000) then writeln('1000') else writeln('1001'); end; procedure otherawfulvar(e: real); begin   if e< > 0 then writeln('1') else writeln('0'); end; begin read(a,b,c,d,e); if (a< > 0) and (b< > 0) then cube(a,b,c,d,e); if (a=0) and (b< > 0) then square(b,c,d,e); if (a=0) and (b=0) and (c< > 0) and (d< > 0) then common(c,d,e); if (a=0) and (b=0) and (c=0) and (d=0) then awfulvar(e); if (a=0) and (b=0) and (c< > 0) and (d=0) then otherawfulvar(e); if (a=0) and (b=0) and (c=0) and (d< > 0) then writeln('0'); end. пример ввода: 1 1 1 1 1 пример вывода: 0