Сколько всего шагов пройдёт робот, выполнив следующий цикл? for x in range(4): r.right(1) for y in range(4): r.right(2) r.right(3) заметим, что r.right(3) — это команда сдвига робота на 3 шага вправо.

#for x in range(4):
#    r.right(1)
#    for y in range(4):
#        r.right(2)
#        r.right(3)

Рассмотрим внутренний цикл. Для каждого у от 1 до 4, робот делает 2 шага вправо, а затем 3 вправо. То есть за весь этот цикл робот сделает (2 + 3) * 4 = 5 * 4 = 20 шагов вправо. Теперь рассмотрим внешний цикл. Для каждого х от 1 до 4, робот делает 1 шаг вправо и ещё 20 шагов вправо за счет того цикла, который мы уже разобрали. Значит всего робот сделает (1 + 20) * 4 = 21 * 4 = 84 шага вправо.
ответ: 84 шага.

//PascalABC.NET 3.1 сборка 1200
begin
  //  создаем массив и заполняем случайными числами от -50 до 50
  var a := ArrRandom(ReadInteger('n='), -50, 50);
  //выводим массив  
  a.Println;
  //находим индекс максимального элемента  
  var max := a.IndexMax();
  // выводим значение макс. элемента и его индекса
  writeln('Max = ', a[max], ' Index = ', max);
  // заменяем максимальный элемент минимумом
  a[max] := -50;
  //находим индекс второго максимального элемента (на данный момент уже первого)  
  max := a.IndexMax;
  // выводим значение элемента и его индекса
  writeln('Max = ', a[max], ' Index = ', max);
end.

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var a,b:real;
  Write('Введите два числа через пробел: ');
  Read(a,b);
  if a>b then Writeln(a,'>',b,', максимум равен ',a)
  else
    if a<b then Writeln(a,'<',b,', максимум равен ',b)
    else Writeln('Веденные числа равны')
end.

Тестовые решения:
Введите два числа через пробел: 36.4 32.15
36.4>32.15, максимум равен 36.4

Введите два числа через пробел: -46.46 -18.54
-46.46<-18.54, максимум равен -18.54

Введите два числа через пробел: 38.0 38
Веденные числа равны