Напишите пожалуйста срочно нужно алгоритм решения задачи:
Вывести на экран сумму четных чисел из промежутка от 2 до 100. ( Паскаль)

program rafael;
var  count, b: integer;
begin  b := 2;  while b <= 100 do   begin    count:=count+b;    b:=b+2;  end;  write(count);end.