кратные числа, интервал от "a" до "b"

[ank1ne]

Вывести сумму и количество кратных 7 чисел от "a" до "b".

вот начало

var S,K,a,b:integer;
begin
writeln('Введи начало интервала');
readln(a);
writeln('Введи конец интервала');
readln(b);

___________________________________ _________________
помогите пожалуйста, написать с циклом "пока-while".
а дальше с циклом "до-repeat" и "для-for" я сам написать сумею.
спасибо

[Alex11223]

i:=a; s:=0; c:=0;
while (i<=b) do 
begin
   if (i mod 7 = 0) then
   begin
     s:=s+i;
     c:=c+1;
     writeln(i);
   end;
   i:=i+1;
end;

[ank1ne]

Alex11223 как всегда выручил. дай тебе бог здоровья. спасибо

[ank1ne]

Alex11223 если не трудно можете и для цикла repeat написать, пожалуйста. у меня выходи черты что

[Alex11223]

Так вроде все также как и while в этой задаче.

[ank1ne]

у меня выходит одни i:=14 хД

[Alex11223]

Покажи свой код. (если турбо паскаль, то можно скопировать из .pas файла, который имя_программы.pas, если что)

[ank1ne]

i:=a; s:=0; c:=0;
repeat
if i mod 7=0 then;
begin
s:=s+i;
c:=c+1;
until i>=b;
writeln(i);
end;
i:=i+1;
end;

[Alex11223]

а until i>=b что делает в теле if'а? Он же в самом конце должен быть, после i+1.

[ank1ne]

спсаибо, больше не смею тревожить