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