Pascal abs: сколько понадобится парт, чтобы рассадить N школьников, если за одну парту можно посадить одного или двух человек? За каждой партов должен сидеть хотя бы один человек

Program prog;
uses crt;

var n :integer;

begin
clrscr;

write(Количество учеников N = );
readln(n);
writeln(Необходимое количество парт: , (N/2):0:0, -, N);
end.