КТО СДЕЛАЕТ ТОМУ ПЕРЕВЕДУ НА КАРТУ 50 ГРН‼️‼️‼️‼️‼️

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.

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