5 раз спрашивает ввод с клавиатуры, потом выходит из цикла

program v1;

var n,kol:integer;

 begin

   kol:=1;

   readln(n);

   repeat

   readln; if n>0 then kol:=kol+1;

   until kol=5;

 end.