Определить каким будут значения переменных p и d после выполнения операторов

P:=true;d:=1
Case k mod 10 of
3,2,7,5:d:=k;
1: ;
4,8:begin p:-false;d:=2end;
9,6:begin p:-false;d:=3 end;
End;
Если k=6