Составьте программу нахождения суммы всех четных чисел от 10 до 100.1

Var   i: byte;
begin  i := 10;  while i lt;= 100 do  begin    if not odd(i) then      write(i, ' ');    inc(i);  end;  writeln;  i := 10;  repeat    if not odd(i) then      write(i, ' ');    inc(i);  until i = 101;  writeln;  for i := 10 to 100 do    if not odd(i) then      write(i, ' ');end.