Составить программу нахожденмя суммы четных чискл на промкжутке от 26 до 88 (с предусловием)

var a,s:integer;begina:=26;while a<=88 dobeginif a mod 2 = 0 then s:=s+a;a:=a+1end;writeln (s)end.