program sumpm150k4;
uses
crt;
var
sum, i: Integer;
begin
sum := 0;
for i := 1 to 149 do
if ((i mod 4) = 0) then
sum := sum + i ;
end;
writeln('Сумма:', sum);
end.
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.