Написать программу для ввода 10 чисел с клавиатуры,не превышающих 1000 и кратных 5. Найти сумму

Pascal: Var i,x,s:integer; f:boolean; begin for i:=1 to 10 do begin f:=false; repeat writeln('Введите число:'); readln(x); if (x<=1000) and (x mod 5=0) then begin s:=s+x; f:=true; end else writeln('Число не удовлетворяет требованиям.'); until f; end; writeln('Сумма равна : ',s); end.