>>> for i in range(10) : print i

0
1
2
3
4
5
6
7
8
9
>>>

set     := BITS(integer);
integer := ORD(set);

# начали с калкулятора
>>> 2+2
4

# перешли к функции
>>> def sum(a,b) : return a+b

# заюзали функцию
>>> sum(2,2)
4

# теперь к классу:
>>> class Summator:
    a = 0
    b = 0
    def sum(self):
        return self.a + self.b

# сразу заюзали класс:    
>>> s = Summator()
>>> s.a = 1
>>> s.b = 2
>>> s.sum()
3
>>>

if a = b and b < c then ...

if ((a & b) != 0 && c < b) ...

if (((a and b) != 0) and (c < b)) then ...

1 to: 10 do: [:each | Transcript show: each]

class Summator
{
    public int a;
    public int b;
    
    public int Sum()
    {
        return a + b;
    }
}

if ((a & b) != 0 && c < b) ...

VAR a, b: SET;
    c: INTEGER;
BEGIN
  a := {1, 4, 27, 30}; (* биты 1,4,27,30 равны 1 остальные биты равны 0 *)
  b := {0, 6, 27};     (* биты 0,6,27 равны 1 остальные биты равны 0 *) 
  c := 100;
  INCL(a, 8);          (* Бит номер 8 теперь тоже равен 1 *) 
  EXCL(b, 6);          (* Бит номер 6 теперь равен 0 *) 
  IF (a*b # {}) & (c < ORD(b)) THEN

foreach (int i Range(10))
    Console.WriteLine(i);

        static int[] Range(int len)
        {
            return Range(0, len, 1);
        }

        static int[] Range(int start, int len, int inc)
        {
            int count = (len - start) / inc;
            int[] array = new int[count];
            for (int val = start, i = 0; i < count; i++, val += inc)
                array[i] = val;
            return array;
        }

        static IEnumerable<int> Range2(int len)
        {
            return Range2(0, len, 1);
        }

        static IEnumerable<int> Range2(int start, int len, int inc)
        {
            int count = (len - start) / inc;
            for (int val = start, i = 0; i < count; i++, val += inc)
                yield return val;
        }

def my_range(n):
    i = 0
    while i < n:
        yield i
        i += 1

def my_range(*name):
    if(len(name) == 1): name = (0, name[0], 1)
    if(len(name) == 2): name = name.append(1)
    i = name[0]
    while i < name[1]:
        yield i
        i += name[2]

def my_range( n, *args):
    i, n, step = args and ([n] + args + [1])[:3] or (0, n, 1)
    while i < n:
        yield i
        i += step

i := ORD( BITS(i) - {28,29,30,31} );

i := ORD(BITS(i) AND BITS (0,0,0,0, 1,1,1,1, 1,1,1,1, 1,1,1,1,)

foreach (int i Range(10))
    Console.WriteLine(i);

program Prog1;

var s: string = 'Здравствуй мир!';
    c: char;
begin
  for c in s do write(c);
end.

def my_range(begin, end = None, step = 1):
    if end == None: begin, end = 0, begin
    while begin < end:
        yield begin
        begin += step

 int i=0;
 if (~i ) {...}

i:Integer=0;
 ............
 if not Boolean(i) Then
 .....................
 if i<>0 Then

if (a == b && b < c)
    ...

if a = b and b < c then
    ...

if ((a == (b & b)) < c)
    ...

if (a = b) and (b < c) then
    ...

def my_range(begin, end = None, step = 1):
    if end == None: begin, end = 0, begin
    while begin < end:
        yield begin
        begin += step