Народ нужна по задачам связанным с Паскалем. Напишите код для 4,5,6,7 хотябы одному из этих задач.

const

  n = 10; //Количество чисел, которое нужно ввести
var
  a: array [1..n] of 10..99; {Массив двузначных чисел, которые вводятся с клавиатуры}
  number, i: integer; //number - количество чисел

begin
  number:= 0; //Обнуляем счетчик
  for i:= 1 to n do //Вводим n двузначных чисел
  begin
    writeln('Введите двузначное число');
    readln(a[i]);
  end;
  write('Числа, которые делятся на 4,но не делятся на 6: ');
  for i:= 1 to n do  {Распечатываем числа, которые делятся на 4, но не делятся на 6}
    if (a[i] mod 4 = 0) and (a[i] mod 6 <>0) then {если число делится на 4 и не делится на 6, прибавляем к счетчику 1}
  begin
    write(a[i], ' ');
    number:= number + 1;
  end;
  writeln;
  writeln('Количество чисел, которые делятся на 4, но не делятся на 6: ', number);
end.

Console.Write("Строка: ");

string text = Console.ReadLine();

char character;

uint leftChars, rightChars;

do

   Console.Write("Символ: ");

while(!char.TryParse(Console.ReadLine(), out character));

do

   Console.Write("Символов в начале: ");

while(!uint.TryParse(Console.ReadLine(), out leftChars));

do

   Console.Write("Символов в конце: ");

while(!uint.TryParse(Console.ReadLine(), out rightChars));

for(int i = 0; i < 3; ++i) {

   for(int j = 0; j < leftChars; ++j)

       text = character + text;

   for(int j = 0; j < rightChars; ++j)

       text += character;

}

Console.WriteLine(text);

Console.ReadKey();