По данному распределению выборки требуется:
а) составить интервальный вариационный ряд;
б) составить дискретный вариационный ряд;
в) построить полигон относительных частот;
г) построить гистограмму относительных частот;
д) найти эмпирическую функцию распределения .
56,13 44,84 43,80 36,85 41,76
38,57 40,62 54,08 38,75 35,80
30,68 38,53 34,82 45,77 31,38
33,53 35,93 47,65 24,45 43,37
46,68 44,12 38,80 41,30 33,76
41,37 42,84 45,30 34,46 36,82
45,07 37,32 33,92 39,63 42,89
39,28 43,36 43,32 45,42 32,77
33,81 46,76 42,80 45,64 31,35
25,45 33,35 35,29 36,47 46,16

var A,B, minA, maxA, minB, maxB, minn, maxx, t, t1, i:longint;

begin  

readln(A); readln(B);

minA:=(A-1)*50+1; maxA:=A*50;

minB:=(B-1)*70+1; maxB:=B*70;

if (minA>maxB) or (minB>maxA) then writeln(-1) else

begin

if minA<minB then minn:=minB else minn:=minA;

if maxA>maxB then maxx:=maxB else maxx:=maxA;

t:=minn div 60;

t1:=maxx div 60;

if (minn mod 60)<>0 then inc(t);

if (maxx mod 60)<>0 then inc(t1);

for i:=t to t1 do  

write(i, ' ');

writeln();

end;

end.

не могу сказать верно или нет, так как не проверял а просто написал в блокнотике

1) 72-54=18(кг) муки разница                                                                           
2) 18:6=3(кг) муки в одном пакете                                                                    3) 54:3=18(пакетов) муки из первого мешка                                                    4) 72:3=24(пакета) муки из второго мешка                                                      5) 18+24=42(пакета) муки всего                                                                        ответ: Заготовили 42(пакета) с мукой.