вычислить сумму всех четных натуральных чисел меньше данного n . задаччерез паскаль.. задача по информатике

var a,n,s:integer;beginwrite('введите число n ');readln(n);s:=0;for a:=1 to n doif (a<n) and (a mod 2 =0) then s:=s+a;write(s);end.