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

Var a,s:integer;
begin
a:=26;
while a<=88 do
begin
if a mod 2 = 0 then s:=s+a;
a:=a+1
end;
writeln (s)
end.