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

Var s, k: integer;
Begin
S:=0;
For k:=1 to 100 do
If k mod 2=0 then s:=s+k;
Write('сумма четных чисел данного ряда равна ', s);
End.