программа формирует изображение 4-х квадратов со стороной 1 шаг на расстоянии 1 наш по горизонтали дрг от друга:
СД ДВА ПТ ПТ ПР ПР ПТ ПТ ПТ СД ДВА выбрать описание тела процедуры два в которой используется процедура квадрат:ПРОЦЕДУРА КВАДРАТ ШГ ПТ ШГ ПТ ШГ ПТ ШГ КН ПРОЦ.
а.сД КВАДРАТ ПТ ПТ ПР ПР ПТ ПР ПТ СД КВАДРАТ
Б.СД КВАДРАТ ПТ ПТ ПР ПР ПТ ПТ ПТ СД КВАДРАТ
В. СД КВАДРАТ ПТ ПТ ШГ ШГ ПТ ПР ПТ СД КВАДРАТ
Г.СД КВАДРАТ ПТ ПТ ПР ШГ ПТ ПР ПТ СД КВАДРАТ
Д. СД КВАДРАТ ПТ ПР ШГ ПР ПТ ПР ПТ СД КВАДРАТ

1. Первый интервал 21-30, в него входят 10 чисел (21,22,23,24,25,26,27,28,29,30) = а вероятность будет равна количеству чисел этого интервала к общему интервалу [1;100]. Таким образом для первого интервала 10/100 = 10% = 0,1.
2.Идем по аналогии с предыдущим интервалом : [31;55] - это 25 чисел,следовательно 25/100=25% = 0,25.
3.Интервал [25;100] - это 75 чисел. 75/100=75%=0,75.
4. Ровно 25, это единственное число,а как вы уже успели заметить - каждое число является 1 процентом. Таким образом можно сразу сказать что вероятность для этого случая 1% или 0,01.

ответ: 0.1 ; 0.25 ; 0.75 ; 0.01.

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.