var a : set of Byte;umieszczono pewną liczbę elementów. Napisz procedurę rozdzielającą zbiór a na dwa podzbiory: liczb parzystych i liczb nieparzystych.
program PLIK; {$APPTYPE CONSOLE} var pliczek : file of Word; liczba : Word; begin Assign (pliczek, 'ZBIOR.TYP'); Rewrite (pliczek); liczba:=43210; Write (pliczek,liczba); Close (pliczek) end.