Найти частное произведений четных и нечетных цифр четырехзначного числа — Pascal(Паскаль)

var c,pc,pn:integer;
begin
readln(c);
pc:=1;
pn:=1;
while c div 10 >0 do
begin
if (c mod 10) mod 2=0 then
pc:=pc*(c mod 10)
else
pn:=pn*(c mod 10);
c:=c div 10;
end;
if c mod 2=0 then pc:=pc*c else pn:=pn*c;
writeln(pc/pn:4:2);
readln;
end.