Составить программу нахождения суммы всех целых чисел от 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.