Даны естественные числа от 1 до 50. Найти сумму тех из

program calc;
var s:integer;
begin
s:=0; //начальное значение суммы
For i:integer:=1 to 50 do if (i mod 5 = 0) or (i mod 7 = 0) then
// если при разделеньи i нацело на 5 или 7 остаток равен нулю
begin // то печатать число
if i lt;50 then write(i, + ) else write(i) ;
// число вывести со знаком "+",
//если оно меньше 50, иначе печатать только число (последнее в
//сумме перед знаком равенства
s:= s + i;// сумму чисел s
end;
writeln( = ,s); //вывести символ равенства и сумму чисел
end.