var
i,sum:integer;
begin
sum:=0;
i:=5;
while i<=200 do
sum:=sum+i;
i:=i+2;
end;
writeln ('Summa: ',sum);
end.
var
i,sum:integer;
begin
sum:=0;
i:=5;
while i<=200 do
begin
sum:=sum+i;
i:=i+2;
end;
writeln ('Summa: ',sum);
end.