Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání 
DECL
INTEGER b,c, d;
START
 INTEGERREAD b;
 b:=a+(d:c);
 WHILE ()
 INTEGERWRITE a;
STOP