Pascal. в классе 26 учащихся, вес учащихся от 55 до 85кг, подсчитать количество легких учеников (до 60кг) и количество тяжелых учеников (75+)

Var   i,p,k1,k2: integer; begin   randomize;   writeln('вес учеников');   k1: =0; k2: =0;   for i: =1 to 26 do   begin       p: =random(31)+55;       write(p: 3);       if p< 60 then inc(k1)       else if p> =75 then inc(k2)   end;   writeln;   writeln('легких- ',k1,', тяжелых- ',k2) end. тестовое решение: вес учеников   75 72 62 85 84 60 79 65 78 67 68 72 56 76 57 59 73 56 82 59 79 57 62 85 57 58 легких- 8, тяжелых- 9 вариант со вводом данных: var   i,p,k1,k2: integer; begin   writeln('введите вес учеников');   k1: =0; k2: =0;   for i: =1 to 26 do   begin       read(p);       if p< 60 then inc(k1)       else if p> =75 then inc(k2)   end;   writeln('легких- ',k1,', тяжелых- ',k2) end. тестовое решение: введите вес учеников 75 72 62 85 84 60 79 65 78 67 68 72 56 76 57 59 73 56 82 59 79 57 62 85 57 58 легких- 8, тяжелых- 9

Конечно же jpg во всех устройствах