Помогите пожалуйста с задачей на тему "Циклы".
Задание во вложении.
Выполнить в паскале!

Program prog;uses crt;var a:array[1..201] of integer;    s,i: integer;beginclrscr;for i:=1 to 201 doa[i]:=i+100;for i:=1 to 201 do beginif a[i] mod 2=1 then begins:=s+a[i];write(a[i],' '); end; end;writeln;   writeln;writeln('Сумма s = ', s);  end.