Пишет "Неизвестное имя 'cls' ". ПОЧЕМУ?Работа выполняется в паскалеprogram pr0611;var a: array [1..300] of integer;i,k,m: integer;begincls;randomize;for i:=1 to 300 doa[i]:= 10+random(90);writeln;for i:=1 to 300 dowrite (a[i], ' ');writeln;writeln ('введите число');readln (k);for i:=1 to 300 doif a[1]=k then m:=m+1;writeln(' число ', k , ' встретилось ' , m, ' раз ');end.

i,n: integer;

 procedure IN1(var a,b:real;n:integer;var y:real);

  var

   p:real;

   i:integer;

     begin

       y:=1;

        for i:=1 to n do

         begin

          p:=exp(b*ln(a));

           y:=p*y;

         end;

     end;

procedure IN2(var a, b:real; n:integer; var y1:real);

 var

  p:real;

  i:integer;

   begin

    y1:=0;

      for i:=1 to n do

       begin

       p:=exp(b*ln(a));

       y1:=y1+p;

      end;

   end;

begin

write(' Введите a, b,n');

readln(a,b,n);

IN1(a,b,n,y2);

  writeln('p1 ',y2:10:2);

   writeln(' Введите c, b,m');

   read(a,b,n);

 IN2(a,b,n,y3);

 writeln('s ',y3:10:2);

 write(' Введите e, f,L');

   readln(a,b,n);

   IN1(a,b,n,y5);

   writeln('p2 ',y5:10:2);

    y6:=(y2+y3)/y5;

writeln(y6:8:3); end.

вот так надо