программа работает но в чем то ошибка ​

после print вроде должен следовать знак :

= либо := либо <= или =>

1080

Объяснение:

Разберём 2 варианта.

1) когда буквы Р и Г постоянны, буква Н не используется, а остальные 3 буквы используются произвольно.

Получаем, что у буквы Р есть 5 вариантов постановки, у буквы Г - 4 варианта, и есть 3 места по 3 буквы.

Перемножаем: 5*4*3*3*3=540 вариантов.

2)  когда буквы Р и Г постоянны, буква Н используется, а остальные 3 буквы используются произвольно.

Получаем, что у буквы Р есть 5 вариантов постановки, у буквы Г - 4 варианта, у буквы Н - 3 варианта и есть 2 места по 3 буквы.

Перемножаем: 5*4*3*3*3=540 вариантов.

Чтобы получить ответ, складываем оба варианта, получаем 540+540=1080 кодов

Программы на языке Pascal.

Ввод элементов массива с клавиатуры:

program a;

const N=10;

var m: array [1..N] of integer;

   i, max: integer;

begin

 max:= -32768;

 for i:= 1 to N

   do begin

        readln(m[i]);

        if(m[i]>max)

          then max:= m[i];

      end;

 writeln(max);

end.

Заполнение массива случайными числами:

program a;

const N=10;

var m: array [1..N] of integer;

   i, max: integer;

begin

 randomize;

 max:= -32768;

 for i:= 1 to N

   do begin

        m[i]:= random(-32768, 32767);

        if(m[i]>max)

          then max:= m[i];

      end;

 writeln(max);

end.