Вычислить : 2+4+6+8+...+90+92+94

Question

Вычислить : 2+4+6+8+...+90+92+94

Answer 1

Program n1;
var i,sum: integer;
begin
i:=0;
repeat
i:=i+2;
sum:=sum+i;
until (i=94);
writeln(sum);
end.