Найти сумму всех целых положительных чисел, меньших 150 и кратных 4. (на паскаль)

program sumpm150k4;

uses

crt;

var

sum, i: Integer;

begin

sum := 0;

for i := 1 to 149 do

begin

if ((i mod 4) = 0) then

sum := sum + i ;

end;

writeln('Сумма:', sum);

end.