числа

[Юп@тошк@]

Ребят помогите плиз с клавиатуры вводятся числа признак конца ввода 37.Найти сумму положительных введенных чисел,включая 37...явное добавление к сумме 37 не допускается его надо сделать в цикле с предусловием....заранеее спасибо

[Don Karleone]

цикл с постусловием

Sum:=0;
repeat 
  readln(n);
  if n > 0 then Sum:=Sum + n;
until n = 37;