Кто может нарисовать блок схему этой программе(см.внутри)?

Ievadīt divus skaitļus. Izdot attiecīgu paziņojumu:
1)    ‘Abi ievadītie lielumi pāru skaitļi.’
2)    ‘Abi ievadītie lielumi nepāra skaitļi.’
3)    ‘Viens pāra viens nepāra.’

сама программа:
program para;
uses wincrt;
var a,b: integer;
begin
writeln('Ievadiet a un b');
read (a,b);
if a mod 2=0 then
begin
if b mod 2=0 then
begin
writeln('abi pari');
end
else
begin
writeln('viens para, otrs nepara');
end;
end
else
begin
if b mod 2=0 then
begin
writeln('viens para,otrs nepara');
end
else
begin
writeln('abi nepara')
end;
end;
end.

и надо нарисовать блок схему к этому всему...