Помогите Пожалуйсто с простой Задачкой! (P.S Паскаль)

[kmax2]

Добрый Вечер, уважаемые програмисты!
Парни помогите с одной задачкой по паскалю:

"Найти сумму N чисел натурального ряда, кратных 4, начиная с K>0, N>0. N и K вводяться с клавиатуры."

Вот такая задачка,
Буду благодарен если поможете!
В зарание спс!

Сумел набросать токо вот это:

program c4;
uses crt;
var a,b,z,s:integer;
begin
     clrscr;
     write('Vvedite chislo A:'); readln(a);
     write('Vvedite chislo B:'); readln(b);
         for z:=a to b do
         if (z mod 4=0) then s:=s+z;
     writeln('Summa: ',s);
end.

Но эта как несовсем подходит по условию так как тут сумма из промежутка от A до B.
Подскажите как исправить чтобы решение подходило по условию пожалуйсто!

[__STDC__]

что вас не устраивает? по-моему все правильно.. хотя.. ну можете сделать как-нибудь

while (b < bmax) do begin ...; inc(a); if (a mod 4 = 0) then inc(b); end;

т.е. k у нас будет как bmax... b - текущий номер числа... a - начальное.. в цикле a на 1 увеличиваем..

[kmax2]

Нодо чтобы считало сумму чисел кратных 4 не из промежутка от A до B, а например чтоб было так, чтобы считало допустим начиная с 3 (это N) пять чисел (это K) кратных 4

т.e 4+8+12+16+20 что то в этом роде

[__STDC__]

я уже понял, выше посмотрите, я дописал пост

[kmax2]

туа тут можно как нибудь обойтитсь без A и B

N K и S только

[__STDC__]

Сообщение от kmax2

туа тут можно как нибудь обойтитсь без A и B

какая разница, a,b или n,k?

[kmax2]

просто по условию "Найти сумму N чисел натурального ряда, кратных 4, начиная с K>0, N>0. N и K вводяться с клавиатуры"

[__STDC__]

var
	n,k,kmax,sum:integer;
begin
	k := 1;
	kmax := 4;
	n := 3;
	sum := 0;
	while (k <= kmax) do begin
		if (n mod 4 = 0) then begin
			sum := sum + n;
			inc(k);
		end;
		inc(n);
	end;
	write(sum);
end.

какая разница КАК обозвать переменные??? Ввод с клавиатуры думаю сами сделаете

[kmax2]

новичек в паскале) я

n,k,kmax,sum:integer;
begin
	k := 1;
	kmax := 4;
	n := 3;
	sum := 0;
	while (k <= kmax) do begin
		if (n mod 4 = 0) then begin
			sum := sum + n;
			inc(k);
		end;
		inc(n);
	end;
	write(sum);
end.

Неподскажеш почему она не запкскаеться

[__STDC__]

может потому что ключевое слова var забыли?? она вообще запускается, просто отрабатывает и завершается.. добавьте перед последним end чт-нибудь вроде readln;