Множества, теоретический вопрос, (найти ошибку) Опции

[rekrut]

помогите сказать что не так в 3 строке, выдает ошибку "2 Identifier Expected". В програму вводится масив и она формирует множество из елементов масива. Думаю для профи тут все понятно, только неясно почему ошибка..

Program mnogina1;
const n=10;
type mn1=(5,10,15,20,25); {выдает тут ошибку}
Var i,k:integer;
    ar:array[1..n] of integer;
    mnog:set of mn1;
Begin
     k:=25;
     mnog:=[];
     for i:=1 to n do
         readln(ar[i]);
     for i:=1 to n do
         if ar[i] in mnog then mnog:=mnog+[ar[i]];
     for i:=5 to k do
         begin
              if i in mnog then write(i,' ');
              i:=i+5;
         end;
End.

М

для текстов программ есть специальные теги: [cоde=pas] и [/соde] мисс_граффити

[volvo]

Вот так как ты написал - этого в Паскале никогда не было... Надо делать по другому...

Кроме всего прочего, у тебя в программе есть еще по крайней мере 2 ошибки, которые не ловятся компилятором... Так что сначала приведи задание, а потом будем смотреть, как его лучше сделать...