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

[kmax2]

program c4;
uses crt;
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.

вот так в паскаль забито у меня

запустилпсь токо она еиче не считае почемуто

[Stat_ya]

мне показалось, или изначально k и n в задании должны выводится с клавиатуры????

[kmax2]

млинн, как это забить в прогу

[__STDC__]

ну вместо присваиваний kmax и n введите

readln(kmax,n);

и в конец добавьте

readln;

[kmax2]

как написать чтобы если водим -4 и 5 паскаль в ответе выдавал не 0 а ошибку

[__STDC__]

if (kmax < 0) then begin 
  writeln('Error! K < 0');
  exit;
end;

[kmax2]

можно еще вопрос почему когда мы задаем 3 -5 прога считает хотя не должна

[__STDC__]

ну надо добавить еще проверку на n < 0.. там же в иф дописать ... or (n < 0) ...

[kmax2]

спасибо тебе большое еще подумаю если что напишу
спс те

program c4;
uses crt;
var
	n,k,kmax,sum:integer;
begin
	readln(kmax,n);
if (kmax < 0) or (n < 0) then begin 
  writeln('Error! K < 0 ili N < 0');
  exit;
end;
	while (k <= kmax) do begin
		if (n mod 5 = 0) then begin
			sum := sum + n;
			inc(k);
		end;
		inc(n);
	end;
	write(sum);
end.

почему эта програмка в ответе выдает 105 когда водим 5 и 3
хотя сумма 3 чисел кратных 5 начиная с 5 равна 5+10+15=30???

[kmax2]

подскажите где ошибка