Создать программу по информатике на паскаль абц создать программу вычисления суммы чётных чисел в диапозоне от 1 до 100

Var value, sigma, counter : integer;
Begin
counter := 0;
value := 0;
sigma := 0;
while counter < 50 Do
     begin
     value := value + 2;
     sigma := sigma + value;
     counter := counter + 1;
     end;
writeln(sigma);
readln();
End.