{
	This program illustrates the parser
}

program test026 ;
begin
   if z = z then z:=z+x ;
   a:= b-c div d;
   a:=a+a;
   b:=a+b
end.