В школу принимаются девушки с ростом от 170 до 180 см известно что N девушек пришли на предварительный отбор N вводится с клавиатуры зная рост каждой Определите сколько девушек попадет в школу

var a, n, b:integer;

begin

 for a := 170 to 180 do;

 readln(n);

 b := a mod n;

 writeln('Ответ:', b);

end.

(Не уверен, но возможно правильно :) )