Используя цикл while, напишите программу, вычисляющую сумму всех чётных чисел от 1 до введённого целого числа m.

var i,m,sum: integer; beginread(m); while i<m dobegini:=i+1;if i mod 2 = 0 then sum:=sum+i; end;write(sum); end.

Пример работы:

2+4+6 = 12