нарисовать окружность состоящую из 36 разноцветных квадратов

[Invisible Hunter]

Люди добрые ! Помогите пожалуйста... завтра сдавать, а я ноль в паскале... но задачи нужно сдать...
Заранее благодарен.

5) нарисовать окружность состоящую из 36 разноцветных квадратов.

6) напишите программу, которая рисует последовательность из n окружностей, радиуса r, и
цвета c, для r,n,c, введённых с клавиатуры.

7) Вычислить сумму ряда Y=1! + 2! +3! + ... n!, для n введённого с клавиатуры.

8) Дана последовательность символов, заканчивающаяся символом "+". Определить и вывести
на экран номера символов, имеющих наибольший и наименьший номер.

9) напишите программу, которая вводит с клавиатуры 20 реальных чисел, организовывает
их хранение в одномерном массиве, а затем определяет индекс и значение максимального
элемента массива. Результат выдаётся на экран пользователя.

11) Дан массив, состоящий из 15 символов. Содержимое массива сортируется по убыванию.
После этого выводится контрольное число в диапозоне от 0-255. Необходимо определить наличие
в массиве символа, имеющего номер "контрольное число". В положительном случае сам символ
и его индекс выводится на экран.

13) определить в строке введенной с клавиатуры количество гласных (латинских) букв.

[-=<[Evklidd]>=-]

Задача №13:

program f;
var
 glas: set of char;
 s: string;
 i, c: integer;
begin
 c:= 0;
 glas:= ['a','o','u','y','e','i'];
 writeln('Vvedite stroku: ');
 readln(s);
 for i:= 1 to Length(s) do
  begin
   if s[i] in glas then
    inc(c);
  end;
 writeln('Kol-vo glasnux bukv: ',c);
 readln;
end.

Задача №9:

program pro4;
var
 ar: array [1..20] of real;
 i, maxi: integer;
 max: real;
begin
 for i:= 1 to 20 do
  begin
   write(i,' element: ');
   readln(ar[i]);
  end;
 max:= ar[1];
 for i:= 1 to 20 do
  begin
   if ar[i] > max then
    begin
     max:= ar[i];
     maxi:= i;
    end;
  end;
 writeln('Maximal element: ', max:2:4, ' c indeksom: ', maxi);
 readln;
end.

Задача №7:

program pro5;
var
 i, n: integer;
 s, f: longint;
begin
 write('Vvedite predel summu factoriala: ');
 readln(n);
 s:= 0;
 for i:= 1 to n do
  begin
   if i = 1 then
    f:= 1
   else
    f:= f*i;
   s:= s+f;
  end;
 writeln('Summa factorialov: ', s);
 readln;
end.

Задача № 11:

program pro7;
var
 ch: array [1..15] of char;
 i, k, n: byte;
 c: char;
begin
 for i:= 1 to 15 do
  begin
   write(i,' element: ');
   readln(ch[i]);
  end;
 for i:= 1 to 14 do
  for n:= 1 to 15-i do
   begin
    if ch[i] < ch[i+1] then
     begin
      c:= ch[i];
      ch[i]:= ch[i+1];
      ch[i+1]:= c;
     end;
  end;
 writeln('Vvedite kontrolnoe chislo v diapozone [0..255]: ');
 readln(k);
 for i:= 1 to 15 do
  begin
   if Ord(ch[i]) = k then
    writeln('Simvol ', ch[i], ' s indexom ', i);
  end;
 writeln('V massive net simvola s nomerom ', k);
 readln;
end.

[Invisible Hunter]

Боольшое спс! Не знаю как и отблагодарить... огромное приогромное спасиба!