Паскаль авс сложить все четные числа и нечетные вывести результат. Заранее спасибо. Счет идет от 1 до 10​

var a,b,i,r:integer;

begin

b:=0;

a:=0;

for i:=1 to 10 do begin

if (i mod 2 = 0) Then a:=a+i Else b:=b+i;

end;

writeln('сумма четных ',a);

writeln('сумма нечетных ',b);

end.