TurboPascal
program rozpravka;
var princ, drak: integer;begin if princ > drak then begindrak:= 0;princ:= princezna + kralovstvo/2;endelse princ:= princ - hlava;end.
Príručka pre PASCAL :
http://www.gymvrable.sk/inf/pascal/install/pascal_prirucka_3.pdf
http://www.trsek.com/pascal/obsah