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

Программа:program abc;var x,s,p:integer;beginwriteln('Введите четырехзначное число');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);  endelse  begin  p:=(x mod 10)*(x div 10 mod 10)*(x div 100 mod 10)*x div 1000;  writeln('p=',p);  end;end.Блок-схема