Сделайте заключение на основе посылок:
Все металлы вещества
Литий - металл
Значит -

Var a:array[1..100000] of longint;i,n,max,min:longint;   
begin     
Assign(input,'input.txt');Reset(input);     
Assign(output,'output.txt');Rewrite(output);     
readln(n);
min:=maxint;
max:=0;     
for i:= 1 to n do begin       
readln(a[i]);       
if a[i] mod 2 = 0 then begin         
if a[i] > max then max:=a[i];       
if a[i] < min then min:=a[i];       
end;     
end;     
Writeln('min = ',min);     
Writeln('max = ',max);     
Close(input);Close(Output);   
end.
Например 
вводишь в файл input.txt
5
1
2
3
4
5
он в файле output.txt вывидет
min = 2
max = 4

1)
#include <iostream>
using namespace std;
void draw_square(int n)
{
    for(int y = 0; y < n; y++)
    {
        for (int x = 0; x < n; x++)
            cout << "*";
        cout << endl;
   }
}
int main()
{
  int n;
  cin >> n;
  draw_square(n);
  return 0;
}

2)
#include <iostream>
using namespace std;
void drawNumbers(int a)
{
   while(a > 0)
   {
      cout << a%10 << endl;
      a /= 10;
   }
}
int main()
{
    int a;
    cin >> a;
    drawNumbers(a);
    return 0;
}

3)
#include <iostream>
using namespace std;
int main()
{
    //можно гораздо быстрей, но мне лень
    int a;
    cin >> a;
    for(int i = 1; i <= a; i++) if(a%i==0) cout << i << " ";
    return 0;
}

4)
#include <iostream>
using namespace std;
void procedure(int a)
{   
     int b = a;   
     int c = 1;   
     while(b > 0)  {c *= 10; b/=10;}   
     while(c > 1)   
     {       
          cout << (a%c)/(c/10) << endl;       
          c /= 10;   
     }
}
int main()
{ 
    int a; 
    cin >> a; 
    procedure(a); 
    return 0;
}