Посчитать сумму целых четных чисел от 1ого до заданного числа n

ПОМОГИТЕ РЕШИТЬ
Я пыталась сама сделать (прикрепила к заданию текст программы)
но почему-то в итоге не получилось

Помогите сделать или найдите ошибку пожалуйста

1
а что происходит когда ты её запускаешь?

Ответы и объяснения

2014-01-14T17:09:09+00:00
Вот мой код, у меня всё работает...

uses crt;
var
x,n,s:integer;
begin
clrscr;
s:=0;
write ('N=');
readln (n);
for x:=1 to n do
begin
if x mod(2)=0 then
s:=s+x;
end;
writeln ('sum=',s);
end.