Составьте словесный алгоритм для игры "угадай число"​

Const
  n = 10;

var
  a: array[0..10] of integer;
  i, s: integer;

begin

//Заполнение массива сл. числами

  for i := 1 to n do
  begin
    a[i] := random(201) - 100;
    write(a[i]:4);
  end;
  writeln;

//1) Все элементы не превышающие число 100

  writeln('Не больше 100 ');
  for i := 1 to n do
    if a[i] <= 100 then
      write( a[i]:4);
  writeln;

// 2) Все четные элементы

  writeln('Кратные двум ');
  for i := 1 to n do
    if a[i] mod 2 = 0 then  
      write( a[i]:4);
  writeln;

// 3) Все элементы, являющиеся трехзначными числами

   writeln('Трехзначные ');
  for i := 1 to n do
    if (a[i] < -99) or (a[i] > 99) then  
      write(a[i]:4);
  writeln;

// 4) Третий, шестой и т.д элементы.

  i := 3;
  writeln(' номера 3, 6, 9 и  т.д.');
  while i < n do
  begin
    write(a[i]:4);
    i := i + 3;
  end;
end.

1 задача. Если есть ошибка или можно подругому сделать напишите. 
  class Program   
 {        
class Skier        
{            
public const float procent = 0.12f;           
public float distance = 7f;            
public float multiplication;            
public float alldistance;            
public float totalmileage = 7f;

public float Mileage(int day)          
  {                if (day == 1)                   
 {                        return alldistance = distance ;                    } 
  else if (day >= 2 )               
 {                    for (int i = 2; i <= day; i++)                 
   {                        
multiplication = distance * procent;                       
 alldistance = distance + multiplication;                      
  distance = alldistance;                   
 }    
    }
                return alldistance;                        
   }
 public float TotalPath(int days)            
 {                if (days == 1)               
 {                    return totalmileage = distance;                }
                else if (days >= 2)                
{                    for (int i = 2; i <= days; i++)                   
 {                        
multiplication = distance * procent;                        
alldistance = distance + multiplication;                     
   distance = alldistance;                        
totalmileage += alldistance;               
 }               
 }                
return totalmileage;          
  }
  }
 static void Main(string[] args)      
  {            
Skier skier = new Skier();
Console.WriteLine("Пробег лыжника за n дней тренировок, введите n: ");            skier.Mileage(Convert.ToInt32(Console.ReadLine()));            Console.WriteLine("Пробег: "+ skier.alldistance);
 Console.WriteLine("Суммарный путь за m дней, введите m: ");            skier.TotalPath(Convert.ToInt32(Console.ReadLine()));            Console.WriteLine("Суммарный путь: " + skier.totalmileage);
     Console.ReadLine();      
  }    }

Задача 2. Решил ее так как я сам понял..

class Students    {      
 List<int> numbers = new List<int>();       
public int countstudents;       
public int maxCount;        
public int minCount;        
public void clas(int n)       
 {          
  for (int i = 1; i <= n; i++)           
 {                   
Console.WriteLine("Введите кол-во учеников в классе: " );                 
countstudents = Convert.ToInt32(Console.ReadLine());                   
numbers.Add(countstudents);
}
maxCount = numbers.Max();               
minCount = numbers.Min();                
Console.WriteLine("Численность превышает на: " + (maxCount-minCount) + " ученика/ов");                  
}
 static void Main(string[] args)        {
 Students students = new Students();            
Console.WriteLine("Введите кол-во классов: ");            students.clas(Convert.ToInt32(Console.ReadLine()));           
 Console.ReadLine();
}