Соч 50 6 класс все написано я молю ! ​

#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 шага.

Var n:integer;
a:array[1..27] of string[15]=
 ('один','два','три','четыре','пять','шесть','семь','восемь','девять',
  'десять','одиннадцать','двенадцать','тринадцать','четырнадцать',
  'пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать', 
  'двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят',
  'восемьдесят','девяносто');
begin
write('N (1..99) = ');
readln(N);
if (n>=1)and(n<=19)
  then writeln(a[n])
  else begin 
       write(a[n div 10 + 18]);
       if n mod 10 <> 0 then write(' ',a[n mod 10]);
       writeln;
       end;
end. 

Пример:
N (1..99) = 46
сорок шесть