Чем отличается позиция девочек по отношению к полу от позиции мальчиков?

Var s,a:integer;
begin
s:=1;
for a:=12 to 18 do
s:= s * a;
writeln (s);
end .
писал с телефона