#include <stdio.h>
#include <conio.h>
typedef int цілий;
typedef float плаваючий;
typedef char символ;
#define головний main
#define повернути return
#define якщо if
#define інакше else
#define цикл for
#define цикл2 while
цілий функція(цілий а, цілий б)
{
якщо(а > б) повернути а;
інакше повернути б;
}
цілий головний()
{
цілий а=0;
цілий б=1;
цілий в=функція(а, б);
повернути в;
}

// Даны три стержня, на один из которых нанизаны несколько колец, причём кольца отличаются размером и лежат меньшее на большем.
// Задача состоит в том, чтобы перенести пирамиду из колец за наименьшее число ходов на другой стержень.
// За один раз разрешается переносить только одно кольцо, причём нельзя класть большее кольцо на меньшее. 

КоличествоКолец = 4;

function Перенос(количество, откуда, куда) {
    if(количество <> 1) {
        Перенос(количество - 1, откуда, 6 - откуда - куда);
    }
    print "Диск ", количество, " перенести с оси ", откуда, " на ось ", куда, chr(13), chr(10);
    if(количество <> 1) {
        Перенос(количество - 1, 6 - откуда - куда, куда);
    }
}

Перенос(КоличествоКолец, 1, 3);

{
    set synonym "друкувати" for "print";
    set synonym "вивід" for "друкувати";
    set synonym "цикл" for "while";
    set synonym "початок" for "start";
    set synonym "поступ" for "step";
}

while (Змінна в циклі < 10) start (Змінна в циклі = 1;) step (Змінна в циклі = Змінна в циклі + 1;) {
    Друкувати Змінна в циклі; Вивід;
}

Цикл (Змінна в циклі < 10) Початок (Змінна в циклі = 1;) Поступ (Змінна в циклі = Змінна в циклі + 1;) {
    Друкувати Змінна в циклі; Вивід;
}

;;; це лише ескіз мови

функ привіт (ім'я)
  вивести("Привіт %1", им'я)
кнц

функ табл1 (арг)
  Якщо (арг більшза 0) 
    поч
      вивести("%1", змн1)
      табл1(++арг)
    кнц
кнц

функ табл2 (арг)
  Доки (арг більшза 0) 
    поч
      вивести("%1", змн1)
      ++арг
    кнц
кнц

функ табл2 (арг)
  для (і := 0; і меншза арг; і++) 
    поч
      вивести("%1", змн1)
      ++арг
    кнц
кнц

мас = (1, 2, 3, 4)
стр = "строка"

виводь("Привіт %1", імє)