Напишите нужно алгоритм решения : вывести на экран сумму четных чисел из промежутка от 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.