program SumOfEvenNumbers;
varN, i, sum: integer;
beginsum := 0;
write('Введите число N: ');readln(N);
for i := 1 to N dobeginif i mod 2 = 0 thensum := sum + i;end;
writeln('Сумма всех четных чисел от 1 до ', N, ' равна ', sum);end.
program SumOfEvenNumbers;
var
N, i, sum: integer;
begin
sum := 0;
write('Введите число N: ');
readln(N);
for i := 1 to N do
begin
if i mod 2 = 0 then
sum := sum + i;
end;
writeln('Сумма всех четных чисел от 1 до ', N, ' равна ', sum);
end.