Составить программу для решения задачи:
Абонент пользуется следующим тарифом мобильной связи:
ежемесячный платеж составляет 250 рублей
пакет оплачиваемых этой суммой услуг составляет:
• 400 минут связи
• 500 смс
• 3 Гб интернет-трафика
Услуги, превышающие эти нормы, оплачиваются по следующему тарифу:
• 1,2р. за 1 минуту связи
• 1,5р. за 1 смс
• 1,3р. за 1 Мб интернет-трафика
В конце месяца вычисляется объем предоставленных услуг и списывается соответственная плата за месяц. Составить программу для вычисления суммы, которую должен оплатить абонент, для введенных данных: М – количество минут, которые были потрачены за месяц, С – количество смс, I – объем интернет-трафика (в мегабайтах).

Procedure swap(var a, b: real);
var t: real;
begin
     t := a;
     a := b;
     b := t;
end;

var a, b, c: real;
begin
     readln(a, b, c);
     if (a > b) then swap(a, b);
     if (b > c) then swap(b, c);
     if (a > b) then swap(a, b);
     writeln(a, ' ', b, ' ', c);
end.

Без процедур:

var a, b, c, t: integer;
begin
     readln(a, b, c);
     if (a > b) then
     begin
          t := a;
          a := b;
          b := t;
     end;
     if (b > c) then
     begin
          t := b;
          b := c;
          c := t;
     end;
     if (a > b) then
     begin
          t := a;
          a := b;
          b := t;
     end;
     writeln(a, ' ', b, ' ', c);
end.

Const n=3;
var    a: array[1..n] of integer;  
  i, j, k: integer; 
begin  
  randomize;   
  write ('Исходный массив: ');  
  for i := 1 to n do begin  
      a[i] := random(256);     
   write (a[i]:4);    end;    
writeln; writeln;    
  for i := 1 to n-1 do   
     for j := 1 to n-i do   
         if a[j] > a[j+1] then begin     
           k := a[j];            
    a[j] := a[j+1];        
        a[j+1] := k        
    end;    
 write ('массив по возрастанию: '); 
   for i := 1 to n do  
     write(а[i]:4);   
  writeln;
 readln;
end.