Вычислить сумму чётных чисел на интервале от a до b включительно, заданный пользователем. написать программу и начертить блок схему

Var

a,b,i: Integer;

s,s1: Longint;

BEGIN

writeln('Ввод а');

readln(a);

Writeln('Введите b: '); Readln(b);

For i:=a to b do

If i mod 2=0 Then s:=s+i

Else s1:=s1+i;

Writeln('Сумма четных: ',s);

Writeln('Сумма нечетных: ',s1);

END.