Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7 — Pascal(Паскаль)

var
i,sum: integer;

begin
sum:=0;
for i:=1 to 50 do
 if ((i mod 5 = 0) or (i mod 7 = 0)) then sum:=sum+i;
writeln(sum);
end.