Помогите решить задачу в Turbo Pascal=) пожалуйста=)

Question

Помогите решить задачу в Turbo Pascal=) пожалуйста=)Найти сумму всех чисел из промежутка А до В, кратных 13 и 4 (А и В вводятся с клавиатуры).

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,b,k,sum:integer; begin read(a,b); sum:=0; for k:=a to b do if (k mod 13=0) and (k mod 4=0) then sum:=sum+k; writeln(sum); readln; end.