СРОЧНО!!!!!посчитать сумму чётных чисел в промежутке от 8 до 1000

Program P3;// ИМЯ ПРОГРАММЫvar k,s:integer; //РАХДЕЛ ОПИСАНИЕ ПЕРЕМЕННЫХ,ЦЕЛЫЙ ТИП ДАННЫХbegin//НАЧАЛО ПРОГРАММЫs:=0; for k:=8 to 1000 do if k mod 2=0 thens:=s+k;writeln(сумма четных чисел = ,s); readln end.