От программы, записанной на алгоритмическом языке, перейдите к записи программы на языке Паскаль. В ответе запишите первую строку программы на языке Паскаль.​

Ошибки в программе:

Program primer - не хватает точки с запятой

Var a,b: integer;

Begin ; - не ошибка, необязательная точка с запятой

 ReadLn( a,b); - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками

 s=a+b; - не хватает двоеточия в :=

 m:=a*b;

 d:=a:b; - переменная d не была описана; деление - это /

 WriteLn(s);

 WriteLn(m);

 WriteLn(d)

End - не хватает точки.

 

Исправленная программа:

Program primer;

Var a, b: integer;

  d: real;

Begin

  ReadLn(a, b);

  s := a + b;

  m := a * b;

  d := a / b;

  WriteLn(s);

  WriteLn(m);

  WriteLn(d)

End.

Const
  n = 20;

var
  a: array[1..n] of integer;
  b: array[-5..11] of integer;
  i, j, m: integer;

begin
  //Заполнение массива и подсчет кол-ва каждого из интервала
  // от -5 до 11
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := random(17) - 5;
    inc(b[a[i]]);
    write(a[i]:4);
  end;
  writeln;
  //Сортировка и вывод массива
  writeln('Отсортированный массив');
  for i := 1 to n - 1 do
  begin
    for j := i + 1 to n do
    begin
      if a[i] > a[j] then begin
        m := a[i];
        a[i] := a[j];
        a[j] := m;
      end;
    end;
  end;
  for i := 1 to n do write(a[i]:4);
  writeln;
 
  //Вывод количества чисел из интервала
 
  for i := -5 to 11 do
  begin
    writeln('Число:', i:4, ' кол-во: ', b[i]:4);
  end;
end.

Тестовое решение:
Исходный массив
   9   4   6   1   8  -5   9   0  -1   0   7   7  -1  -3  -1  -2   7   3  11   4
Отсортированный массив
  -5  -3  -2  -1  -1  -1   0   0   1   3   4   4   6   7   7   7   8   9   9  11
Число:  -5 кол-во:    1
Число:  -4 кол-во:    0
Число:  -3 кол-во:    1
Число:  -2 кол-во:    1
Число:  -1 кол-во:    3
Число:   0 кол-во:    2
Число:   1 кол-во:    1
Число:   2 кол-во:    0
Число:   3 кол-во:    1
Число:   4 кол-во:    2
Число:   5 кол-во:    0
Число:   6 кол-во:    1
Число:   7 кол-во:    3
Число:   8 кол-во:    1
Число:   9 кол-во:    2
Число:  10 кол-во:    0
Число:  11 кол-во:    1