program first;
declare num,value:integer;
        found:boolean;
begin
   ;
end first.