Встречено : = а ожидался оператор: условие: дан массив заполненный по формуле cos(x/3), определить количество его положительных элементов кратных 3 программа program fa; var a: array [1..10] of integer; i, n: integer; begin writeln('введи элементы массива? '); for i : = 1 to 5 do begin writeln('a[',i,']='); readln(a[i]); end; for i : = 1 to 5 do if (a[i]: =cos(a[i]/3))= 0 then inc(n); writeln('кратных 3: ', n); end.

Архитектор-3д визуализация проекта
врач-выявление болезний у людей
учитель-поиск материалов для подготовки курокам
бтзнесмен-курс валют,обмен разнами планами по почте
бухгалтер-работа с файлами
секретарь-работа с файлами , назначентй каких небудь встречь
писатель-выставление работ в свет , получение оценки произведения от разных людей
художник-бизнес , рисование артов на заказ , шапки для каналов,аватарки и прочие.
модельер-поис подходящих материалов для одежде,инфориация он их
2.ррограммист -то человек который что то программирует , создает новые прогарамы,игры.Пользователь-чнловек который это использует оценивает,что то ищет в сети.

Вот! Вообщем там много.

label 1, 2, 3, 4, 5, 6, 7, 8, 9;

var

  i, x, m, n, k: integer;

  s: real;

  a: array of real;

begin

  7:

  Writeln('Выберите действие:');

  writeln('1)Сложение');

  writeln('2)Вычитание');

  writeln('3)Умножение');

  writeln('4)Деление');

  writeln('5)Возведение в степень');

  writeln('');

  8:

  write('Выбор >>> ');

  readln(x);

  writeln('');

  case x of

    1:

      begin

        write('Введите количество слагаемых >>> ');

        readln(m);

        writeln('');

        s := 0;

        setlength(a, m);

        for i := 0 to m - 1 do

        begin

          write('Введите слагаемое № ', i + 1, ' >>> ');

          readln(a[i]);

          s := s + a[i];

        end;

        writeln('');

        write(a[0]);

        for i := 1 to m - 1 do

          write(' + ', a[i]);

        write(' = ', s);

        writeln('');

        writeln('');

        1:

        Writeln('Выберите действие:');

        writeln('1)Заново');

        writeln('2)Выйти');

        writeln('');       

        write('Выбор >>> ');

        readln(n);

        case n of

          1:

            begin

              writeln('');

              writeln('');

              goto 7;

            end;

          2: exit

        else

          begin

            writeln('');

            writeln('Ошибка!');

            writeln('Попробуйте снова!');

            writeln('');

            goto 1;

          end;

        end;

      end;

    2:

      begin

        write('Введите количество элементов >>> ');

        readln(m);

        writeln('');

        s := 0;

        setlength(a, m);

        write('Введите уменьшаемое >>> ');

        readln(a[0]);     

        for i := 1 to m - 1 do

        begin

          write('Введите вычитаемое № ', i, ' >>> ');

          readln(a[i]);         

        end;

        writeln('');

        write(a[0]);

        s := a[0];

        for i := 1 to m - 1 do

        begin

          s := s - a[i];

          write(' - ', a[i]);

        end;

        write(' = ', s);

        writeln('');

        writeln('');

        2:

        Writeln('Выберите действие:');

        writeln('1)Заново');

        writeln('2)Выйти');

        writeln('');       

        write('Выбор >>> ');

        readln(n);

        case n of

          1:

            begin

              writeln('');

              writeln('');

              goto 7;

            end;

          2: exit

        else

          begin

            writeln('');

            writeln('Ошибка!');

            writeln('Попробуйте снова!');

            writeln('');

            goto 2;

          end;

        end;              

      end;

    3:

      begin

        write('Введите количество множителей >>> ');

        readln(m);

        writeln('');

        s := 1;

        setlength(a, m);

        for i := 0 to m - 1 do

        begin

          write('Введите множитель № ', i + 1, ' >>> ');

          readln(a[i]);

          s := s * a[i];

        end;

        writeln('');

        write(a[0]);

        for i := 1 to m - 1 do

          write(' * ', a[i]);

        write(' = ', s);

        writeln('');

        writeln('');

        3:

        Writeln('Выберите действие:');

        writeln('1)Заново');

        writeln('2)Выйти');

        writeln('');       

        write('Выбор >>> ');

        readln(n);

        case n of

          1:

            begin

              writeln('');

              writeln('');

              goto 7;

            end;

          2: exit

        else

          begin

            writeln('');

            writeln('Ошибка!');

            writeln('Попробуйте снова!');

            writeln('');

            goto 3;

          end;

        end;             

      end;

    4:

      begin

        write('Введите количество элементов >>> ');

        readln(m);

        writeln('');

        s := 0;

        setlength(a, m);

        write('Введите делимое >>> ');

        readln(a[0]);     

        for i := 1 to m - 1 do

        begin

          9:

          write('Введите делитель № ', i, ' >>> ');

          readln(a[i]);

          if a[i] = 0 then

          begin

            writeln('Делить на 0 нельзя!');

            goto 9;

          end;

        end;

        writeln('');

        write(a[0]);

        s := a[0];

        for i := 1 to m - 1 do

        begin

          s := s / a[i];

          write(' / ', a[i]);

        end;

        write(' = ', s);

        writeln('');

        writeln('');

        4:

        Writeln('Выберите действие:');

        writeln('1)Заново');

        writeln('2)Выйти');

        writeln('');       

        write('Выбор >>> ');

        readln(n);

        case n of

          1:

            begin

              writeln('');

              writeln('');

              goto 7;

            end;

          2: exit

        else

          begin

            writeln('');

            writeln('Ошибка!');

            writeln('Попробуйте снова!');

            writeln('');

            goto 4;

          end;

        end;    

      end;

    5:

      begin

        write('Введите число которое требуется возвести в степень >>> ');

        readln(k);

        write('Введите необходимую степень >>> ');

        readln(m);

        writeln('');

        s := Exp(m * Ln(k));       

        writeln('');

        writeln(k, '^', m, ' = ', s);

        writeln('');

        writeln('');

        5:

        Writeln('Выберите действие:');

        writeln('1)Заново');

        writeln('2)Выйти');

        writeln('');       

        write('Выбор >>> ');

        readln(n);

        case n of

          1:

            begin

              writeln('');

              writeln('');

              goto 7;

            end;

          2: exit

        else

          begin

            writeln('');

            writeln('Ошибка!');

            writeln('Попробуйте снова!');

            writeln('');

            goto 5;

          end;

        end;         

      end

  else

    begin

      writeln('');

      writeln('Ошибка!');

      writeln('Попробуйте снова!');

      writeln('');

      goto 8;

    end;

  end; 

end.