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

Программа:
program abc;
var x,s,p:integer;
begin
writeln('Введите четырехзначное число');
readln(x);
if (x mod 2)=0 then
begin
  s:=(x mod 10)+(x div 10 mod 10)+(x div 100 mod 10)+x div 1000;
  writeln('s=',s);
  end
else
  begin
  p:=(x mod 10)*(x div 10 mod 10)*(x div 100 mod 10)*x div 1000;
  writeln('p=',p);
  end;
end.
Блок-схема