составьте программу вычисления суммы всех положительных трехзначных чисел, кратных 51.

//Pascal ABC.NET v3.1 сборка 1219Var i,s:integer;begin for i:=100 to 999 do if i mod 51=0 then s:=s+i; writeln(s);end.