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.
