Question

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

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

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

Answer 1

вот мой код, у меня всё работает...

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.