Var {заголовок раздела объявления переменных}
 i:Byte; {счетчик цикла}     
 Sum:Word; {искомая сумма}
Begin {начало тела программы}
 Sum:=0; {задание исходного нулевого значения сумме}
 i:=0; {задание исходного нулевого значения счетчику}
 While i<50 do {объявление цикла; он прервется, когда значение счетчика станет равным 50}
  begin {начало цикла}
   i:=i+2; {увеличение значение счетчика на 2; таким образом, i последовательно принимает значения 0, 2, 4, 6, 8 и т.д. до 50}
   Sum:=Sum+i; {к сумме прибавляются вышеуказанные значения счетчика}
  end; {конец цикла}
 Writeln('Sum= ',Sum); {вывод результата (значения суммы) на экран}
 Readln {приостановка работы программы, чтобы можно было полученный результат рассмотреть}
End. {конец тела программы}