Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7. Программа ввода- Pascalabc :9 класс.

Сек, поправлю, не сумму нашел.

Поправил.

спасибо,попробую

Спасибо, вроде получилось(

Все работает, я просто сначала вывод этих чисел сделал.

vari, s: integer;begins:=0;for i:=1 to 50 doif (i mod 3 = 0) or (i mod 7 = 0) theninc(s, i);writeln(s);end.