Внешний файл dan.txt содержит целые числа из диапозона…

Извини, вчера меня тут не было) надеюсь она еще тебе нужна) uses crt; constn=30; vara,i: integer; dan,delen,nedelen: text; beginassign (dan,'dan.txt'); reset (dan); assign (delen,'delen.txt'); assign (nedelen,'nedelen.txt'); rewrite (delen); rewrite (nedelen); for i: =1 to n dobeginread (dan,a); if a mod 2=0 thenwrite (delen,a,') elsewrite (nedelen,a,') end; close (delen); close (nedelen); close (dan); write ('programma zaverwena!) '); read; end.