Даю 35б

Заполни пропуски в программе.

Процедура без параметров, которая печатает строку из 58 во знаков.

procedure pr ;
var i : integer ;
begin
for i :=1 to вставить нужное
do write ('вставить нужное '); writeln;
end;
begin
вставить нужное ;
readln;
end.​

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

a)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a>b then Writeln('Первое число больше второго')
  else
    if b>a then Writeln('Второе число больше первого')
    else Writeln('Числа равны')
end.

b)

begin
  var (a,b):=ReadReal2('Введите через пробел два числа:');
  if a<b then Writeln('Первое число меньше второго')
  else
    if b<a then Writeln('Второе число меньше первого')
    else Writeln('Числа равны')
end.

Program arrayMinValueSwapFirst;var  numbers: array [1..10] of integer;  maxValIndex: integer;begin  write('Исходный массив: ');  for var i: integer := 1 to 10 do  begin    numbers[i] := random(11);    write(numbers[i]);    if i < 10 then      write(', ');  end;  var minVal: integer := -1; // Сюда записываем рекорд по значению  for var i: integer := 1 to 10 do    if (numbers[i] > minVal) then    begin      minVal := numbers[i];      maxValIndex := i;    end;  writeln();  writeln('Индекс максимального: ', maxValIndex);  var buf: integer := numbers[1];  numbers[1] := minVal;  numbers[maxValIndex] := buf;  write('Результат      : ');  for var i: integer := 1 to 10 do  begin    write(numbers[i]);    if i < 10 then      write(', ');  end;end.