Напишите программу, которая считывает три строки. Если эти три строки – «раз», «два» и «три», то программа выводит «ГОРИ», если нет, то «НЕ ГОРИ».

Сделайте так, чтобы не только при вводе «раз», «два», «три», но и при вводе «1», «2» и «3» тоже выводилось «ГОРИ». Смешанный ввод (например, «1», «2», «три») даёт «НЕ ГОРИ».

И не забудьте о возможности вместо «раз» ввести «один».
Ардуино(!)

begin

 //1 вариант

 Range(-3, 11).Sum.Println;

 //2 вариант

 Range(-3, 11).Aggregate(0, (Sum, x)-> Sum + x).Println;

 //3 вариант

 var Sum := 0;

 foreach var x in Range(-3, 11) do

   Sum += x;

 Sum.Println;

 //4 вариант

 Sum := 0;

 for var i := -3 to 11 do

   Sum += i;

 Sum.Println;

 //5 вариант

 Sum := 0;

 var j := -3;

 while j <= 11 do

 begin

   Sum += j;

   j += 1

 end;

 Sum.Println;

 //6 вариант

 Sum := 0;

 j := -3;

 repeat

   Sum += j;

   j += 1;

 until j > 11;

 Sum.Println;

end.

№1

begin

 5.Range.Select(t -> random(-10, 10)).Println; // диапазон целый

 5.Range.Select(t -> round(random(-10.00, 10.00), 2)).Println; // диапазон вещественный

end.

Пример:

-6 -1 -7 5 -8

-9.33 -5.91 -2.68 5.83 -7.51

№2

begin

 10.Range.Select((e, i)-> (e, (i + 1) * 22.4)).Foreach(t -> begin  

                                    Println($'{t[0],2:f0} шт. - {t[1]:f2} руб.') end)

end.

Результат:

1 шт. - 22.40 руб.  

2 шт. - 44.80 руб.  

3 шт. - 67.20 руб.  

4 шт. - 89.60 руб.  

5 шт. - 112.00 руб.  

6 шт. - 134.40 руб.  

7 шт. - 156.80 руб.  

8 шт. - 179.20 руб.  

9 шт. - 201.60 руб.  

10 шт. - 224.00 руб.