Дано трехзначное число 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