Подсчитать сумму чисел кратных 7 в промежутке от 200 до300.
Program Alina; uses crt; const a=200; b=300; var i, n, k: integer; begin k:=0; for i:=a to b do if i mod 7 = 0 then k:=k+1; writeln('Всего ',k,' чисел, кратных 7'); end.