Расставьте порядок выполнения команд: чтобы сохранить сделанную работу, нужно: имя файлу и выбрать тип файлу в меню команду "файл" - "сохранить " в появившемся окошке "мой компьютер" открыть нужные папки ("классы" - "5" - папка ученика) нужный диск (локальный диск с: ) кнопку "сохранить" ,

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.