1. Как кодируется текстовая информация? 2. Где можно найти коды символов?
3. Почему существует несколько таблиц кодов? Чем они отличаются друг от друга?

//Лень было расписывать быструю сортировку, так что вот "пузырёк"
//Pascal ABC.NET 3.1 сборка 1219

Const
n=10;

Var
 i:integer;

 procedure booblesort(var ar:array of integer;n:integer);
 Var i,j:integer;
  begin
   for i:=0 to n-1 do
    for j:=i+1 to n do
     if (ar[i]>ar[j]) and (ar[i]>0) and (ar[j]>0) then swap(ar[i],ar[j]); 
 end;

 begin
 randomize;
 var ar:=ArrRandomInteger(n,-10,10);
 writeln('First array:');
 ar.Println;
 booblesort(ar,n-1);
 writeln('Final array:');
 ar.println;
end.

Пример работы программы:
First array:
-9 -5 5 -9 4 -3 -9 4 10 8
Final array:
-9 -5 4 -9 4 -3 -9 5 8 10

Программа - это один из записи алгоритма, поэтому "Создать алгоритм и программу" - некорректная формулировка.
Программа на паскале:
var x,y:real;
begin
x:=3.9;
y:=exp(sin(x))+cos(x);
write('x = ',x,'  y = ',y);
if y>=0 then writeln(',  f = ',2*y+sqrt(y)+4) else writeln(', функция f не определена');
x:=5;
y:=exp(sin(x))+cos(x);
write('x = ',x,'  y = ',y);
if y>=0 then writeln(',  f = ',2*y+sqrt(y)+4) else writeln(', функция f не определена');
end.

Результат:
x = 3.9  y = -0.223234541662775, функция f не определена
x = 5  y = 0.666967180635498,  f = 6.150614947936