Дано трехзначное число n. проверить, будет ли сумма его цифр четным числом. кто может составьте блок схему алгоритма и программу ана алгоритмическом языке паскаль

//"Школьный" вариант, блок-схема во вложении
//Pascal ABC.NET v3.0 сборка 1111

Var
 s,n,i:integer;
begin
 readln(n);
 s:=0;
 for i:=1 to 3 do
  begin;
   s:=s+n mod 10;
   n:=n div 10;
  end;
 if s mod 2=0 then writeln('Yes') else writeln('No');
end.

Пример ввода:
123
Пример вывода:
Yes