Составить программу выводящую ** экран сумму всех чётных чисел в промежутке от 12 до 30

Question

Составить программу выводящую на экран сумму всех чётных чисел в промежутке от 12 до 30

Answer 1

var sum,i:longint;

 

begin

 

sum:=0;

for i:=10 to 30 do

if i mod 2=0 then sum:=sum+i;

 

write(sum);

 

end;