Помогите сделать задание по информатике. Задание нужно сделать в Borland Pascal 7.0

begin
writeln('Даны натуральные числа от 1 до 50.');
writeln('Найти сумму тех из них, которые делятся на 5 или на 7.');
writeln('5 7 10 14 15 20 21 25 28 30 35 40 42 45 49 50');
writeln('Сумма равна 436')
end.