program delenie;
uses crt;
var
  a: array [1..30] of integer;
  m: array [1..30] of integer;
  I,n: integer;
  d, g: byte ;
  ch: char;
  Error: integer;
Label L1, L2 ;
Begin
L1:
 ClrScr;
 Begin
 ClrScr;
     d:=wherex;
     G:=wherex;
        Repeat
	Writeln('Введите количество элементов в интервале');
	gotoxy (51,1) ;
	write ('от 2 до 30...') ;
	{$I-}
	Readln(N) ;
	 Error:=IOResult;
	 {SI+}
	 If (N<2) or (N>30) or (Error<>0) then
	 Writeln('Неверно задано количество элементов массива! Повторите ввод!');
	 Until (N>=2) and (N<=30) and (Error=0);
	 writeln;
	 Writeln('Исходный массив С:');
	 For i:=1 to n do

  begin
   readln(a[i]);
   if a[i]/5<>round(a[i]/5) then m[i]:=2;
   if a[i]/10=round(a[i]/10) then m[i]:=1;
   end;

  writeln ('');
  writeln('Результатный массив CI:');
   for i:=1 to n do
     if m[i]=1 then
     write (a[i],',');
     for i:=1 to n do
     if m[i]=2 then
     write (a[i],',');
     ch:= readkey;
 end;

    writeln;
    writeln('Сортировать еще один массив? (Y-Да, N-Нет)') ;
 L2:
      Case Readkey of
      #89: Goto L1;
      #121: Goto L1;
      #78:Exit;
      #110:Exit
    end;
    Goto L2;
end.