var
 a : integer