Naine saadab programmeerija poodi:
– “Too palun piima. Ja vaata, kui poes mune on, siis võta kuus.”

Programmeerija tuleb tagasi kuue piimaga… ?
– “Miks sa kuus piima tõid?!”
“Aga poes oli ju mune!”

(* Piimahankimise programm *) 
(* PASCAL funktsioonina    *)
Program shopping;
var qnt:integer, eggs:boolean;

Function GetMILK(eggs:boolean): INTEGER;
Begin
    if (eggs = TRUE) Then 
        GetMILK:= 6 (*Kui mune on, too 6 piima*)
    Else
        GetMILK:= 1; 
End;

Begin
   eggs := TRUE; (*Poes on mune*)
   (* calling a function to get milk *)
   qnt := GetMILK(eggs);
   writeln('MILK quantity is: ', qnt);
End.