var a :integer; b :real;
begin
writeln('Напишите кол-во школьников');
readln(a);
b:=a div 2;
if a mod 2=1 then
b:=b+1;
writeln('Нужно ',b,' парт');
end.