создать программу по информатике на паскаль абц создать программу вычисления суммы чётных чисел в диапозоне от 1 до 100

поздно

урок закончился

Ты ведь понимаешь, что мне глубоко насрать?

var value, sigma, counter : integer; Begin counter := 0;value := 0;sigma := 0; while counter < 50 Do     begin      value := value + 2;     sigma := sigma + value;      counter := counter + 1;     end; writeln(sigma); readln();End.