СРОЧНО!!!!!
посчитать сумму чётных чисел в промежутке от 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.