int _имя_функции_()
 {
  return 0;
 }
 
int main(int argc, char* argv[])
{
  int _имя_переменной_ = _имя_функции_();;
  _имя_переменной_++;
  return 0;
}

#ifndef DEFINES_H
#define DEFINES_H
    #define _целое_             int
    #define _вещественное_      double
    #define _символ_            char
    #define _беззнаковое_       unsigned
    #define _константа_         const
    #define _статичный_         static
    #define _ничего_            void
    #define _класс_             class
    #define _структура_         struct
    #define _объединение_       union
    #define _шаблонный_         template
    #define _выделить_память_   new
    #define _освободить_память_ delete
    #define _начинаем_          main
    #define _использую_         using
    #define _пространсво_имен_  namespace
    #define _стандартное_       std
    #define _написать_          cout
    #define _прочитать_         cin
    #define _если_              if
    #define _иначе_             else
    #define _вернуть_           return
    #define _конец_строки_      endl
#endif

#include "defines.h"
#include <iostream>
_использую_ _пространство_имен_ _стандартное_;

_целое_ _начинаем_(_целое_ _число_аргументов_, _символ_* _массив_аргументов_[])
{
    _если_ (_число_аргументов_ > 1)
    {
        _написать_ << "не принимаю параметров";
        _вернуть_ 1;
    }
    _иначе_
    {
        _написать_ << "Здравствуй мир!" << _конец_строки_;
        _вернуть_ 0;
    }
}

К  сегмент данных
 моё_число    ЦЕЛ    1
К  сегмент команд
              СТАРТ
              СТЕРЕТЬ
              ВЫВОД  моё_число
              СТОП

#define _пеши_есчо_     continue
#define _пынцет_        break
#define _в_бобруйск_    throw
#define _выпей_йаду_    terminate
#define _гламурненька_  true
#define _кг_ам_         false
#define _учи_албанский_ unicode
#define _готично_       template

A>int _имя_функции_()
A> {
A>  return 0;
A> }
 
A>int main(int argc, char* argv[])
A>{
A>  int _имя_переменной_ = _имя_функции_();;
A>  _имя_переменной_++;
A>  return 0;
A>}
A>

function ТестоваяФункция(параметр1:integer):integer;
begin
  Result := параметр1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  переменная1, переменная2:integer;
begin
  переменная1 := 1;
  переменная2 := ТестоваяФункция(2);
  ShowMessage(IntToStr(переменная1+переменная2));
end;

A>>int _имя_функции_()
A>> {
A>>  return 0;
A>> }
 
A>>int main(int argc, char* argv[])
A>>{
A>>  int _имя_переменной_ = _имя_функции_();;
A>>  _имя_переменной_++;
A>>  return 0;
A>>}
A>>

Процедура ЗапуститьВнешнююКомпоненту() Экспорт
    // проверяем наличие файла в каталоге программы
    Если Не обПроверитьФайлКомпоненты() Тогда
        ЗавершитьРаботуСистемы(Ложь);
    КонецЕсли;
    Попытка
        ЗагрузитьВнешнююКомпоненту("lib.dll");
        Компонента = Новый("AddIn.Lib");
    Исключение
        Сообщить("Ошибка загрузки Файла ""lib.dll""|"+ОписаниеОшибки(),СтатусСообщения.Важное);
        Возврат;
    КонецПопытки;        
КонецПроцедуры //ЗапуститьВнешнююКомпоненту()

C>>О боже, бред какой

VAS>Этот бред в 1C релизован , только там некое подобие байсика переведено, из-за этого ей не стал заниматся .

VAS>Господи, хорошо что билдер такого не позволяет , и надеюсь ни когда не позволит.

Function XOR(Val ParA, Val ParB)
    Res = 0;
    Koef = 1;
    For BitNumber = 1 To 8 Do
        BitA = ParA % 2;
        BitB = ParB % 2;
        ParA = Int(ParA / 2);
        ParB = Int(ParB / 2);
        BitC = (BitA + BitB) % 2;
        Res = Res + BitC * Koef;
        Koef = Koef * 2;
    EndDo;  
    Return Res;
EndFunction

AL>Гм, почитал я тему, решил проверить. Как оказалось, Студия-2008 уже компилит и без "_" перед идентификаторами

procedure TForm1.Button1Click(Sender: TObject);
var
  переменная: Integer;

begin
  переменная:= 1;
  ShowMessage(IntToStr(переменная));
end;