К>IF
К>  condition_goes_here
К>THEN
К>  x;
К>  y;
К>  z; (* с обязательной ";" в конце каждой инструкции - требование системы контроля версий *)
К>ELSE
К>  t;
К>  u;
К>  v;
К>END; (* и здесь тоже ";" по той же самой причине *)
К>

if(condition_goes_here)
{
  x();
  y();
  z(); 
{
else
{
  t();
  u();
  v();
}

MODULE FigureList; (* tlozza@student.ethz.ch *)
TYPE
    Figure = OBJECT
        name : System.String;
        next : Figure; (* Reference to the next figure. *)
    END Figure;

VAR
    FigureList, MyFigure, Iterator : Figure;

BEGIN
    NEW(MyFigure); (* Create new figure object/instance. *)
    MyFigure.name := "my favorite";
    FigureList := MyFigure; (* Attach figure to list. *)
    NEW(MyFigure); (* A new figure again. *)
    MyFigure.name := "another one";
    FigureList.next := MyFigure;
    
    (* Print the name of all figures in the list. *)
    Iterator := FigureList; 
    WHILE Iterator # NIL DO
    WRITELN(Iterator.name);
    Iterator := Iterator.next;
    END;
    
END FigureList.

Figure = OBJECT
        name : System.String;
        next : Figure; (* Reference to the next figure. *)
END Figure;

struct Figure{
  System::String figure;
  Figure* next;
}

WHILE Iterator # NIL DO
    WRITELN(Iterator.name);
    Iterator := Iterator.next;
END;

while(Iterator != NULL){
    printf(Iterator.name);
    Iterator = Iterator.next();
}

MODULE List;

TYPE
  List = POINTER TO ListDesc;
  ListDesc = RECORD
    key: ARRAY 64 OF CHAR;
    next: List;
END;

VAR root: List;

PROCEDURE Find (key: ARRAY OF CHAR): List;
  VAR p: List;
BEGIN
  p := root.next;
  WHILE (p # NIL) & (p.key < key) DO p := p.next END;
  IF (p = NIL) OR (p.key > key) THEN RETURN NIL
  ELSE RETURN p
  END
END Find;

PROCEDURE Insert (key: ARRAY OF CHAR; unique: BOOLEAN);
  VAR p, q: List;
BEGIN
  p := root;
  WHILE (p.next # NIL) & (p.next.key < key) DO p := p.next END;
  IF unique & (p.next # NIL) & (p.next.key = key) THEN HALT (99) END;
  NEW (q); COPY (key, q.key); q.next := p.next; p.next := q
END Insert;

PROCEDURE Delete (key: ARRAY OF CHAR);
  VAR p: List;
BEGIN
  p := root;
  WHILE (p.next # NIL) & (p.next.key < key) DO p := p.next END;
  IF (p.next # NIL) & (p.next.key = key) THEN
  p.next := p.next.next
  END
END Delete;

PROCEDURE InitList;
  BEGIN NEW (root); root.next := NIL
END InitList;

END List.

IF (p = NIL) OR (p.key > key) THEN RETURN NIL
ELSE RETURN p
END

Y>А этот синтаксис не устарел?! Не смотря на то, что ему те же 25?

REPEAT x UNTIL b                      = * x * b
WHILE a DO x END                      = * a * x *
IF a THEN x END                       = * a * x *
IF a THEN x ELSE y END                = * a * x * y *
IF a THEN x ELSIF b THEN y ELSE z END = * a * x * b * y * z *
CASE n OF a: x | b: y ELSE z END      = * n * a * x * b * y * z *

* идентификатор * идентификатор * идентификатор * идентификатор * идентификатор ...

К>>IF
К>>  condition_goes_here
К>>THEN
К>>  x;
К>>  y;
К>>  z; (* с обязательной ";" в конце каждой инструкции - требование системы контроля версий *)
К>>ELSE
К>>  t;
К>>  u;
К>>  v;
К>>END; (* и здесь тоже ";" по той же самой причине *)

СГ>if(condition_goes_here)
СГ>{
СГ>  x();
СГ>  y();
СГ>  z(); 
СГ>{
СГ>else
СГ>{
СГ>  t();
СГ>  u();
СГ>  v();
СГ>}

Без извращений в стилистике: ( | конец потока )

~~~         ~~~~~~ ~ ~ ~~~~~~ ~ ~ ~~~~~        24 служебных символа
IF condition THEN x;y;z ELSE t;u;v END |       разница 6 символов, 30:24 = 1.25
if(condition){x();y();z();}else{t();u();v();}|
~~~         ~~ ~~~ ~~~ ~~~~~~~~~ ~~~ ~~~ ~~~~  30 служебных символов

С извращениями: ( _ пробел, \ перевод каретки )

~~~~~         ~~~~~~~~ ~~~~ ~~~~ ~~~~~~~~~ ~~~~ ~~~~ ~~~~~~~           45
IF\__condition\THEN\__x;\__y;\__z;\ELSE\__t;\__u;\__v;\END;\|          разница 9 символов, 54:45 = 1.20
if(condition)\{\__x();\__y();\__z();\}\else\{\__t();\__u();\__v();\}\|
~~~         ~~~~~~ ~~~~~~ ~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~ ~~~~~~ ~~~~~~  54

PROCEDURE ... BEGIN ... END;