Составить программу нахождения суммы всех целых чисел от 25 до 125, которые кратны 7 ПАСКАЛЬ
Program Z1; var a,s:integer; Begin s:=0; for a:=25 to 125 do if a mod 7=0 then s:=s+a; writeln(s); end.