#include <bits/stdc++.h>
using namespace std;

#define StarBurstStream ios_base::sync_with_stdio(false); cin.tie(0);
#define iter(a) a.begin(), a.end()
#define pb emplace_back
#define ff first
#define ss second
#define SZ(a) int(a.size())

using ll = long long;
using pii = pair<int, int>;
using pll = pair<ll, ll>;
#ifdef zisk
void debug(){cerr << "\n";}
template<class T, class ... U> void debug(T a, U ... b){cerr << a << " ", debug(b...);}
template<class T> void pary(T l, T r) {
	while (l != r) cerr << *l << " ", l++;
	cerr << "\n";
}
#else
#define debug(...) void()
#define pary(...) void()
#endif

template<typename A, typename B>
ostream& operator<<(ostream& o, pair<A, B> p){
    return o << '(' << p.ff << ',' << p.ss << ')';
}

using ld = ll;
using pdd = pll;
#define X first
#define Y second

pdd operator+(pdd a, pdd b)
{ return {a.X + b.X, a.Y + b.Y}; }
pdd operator-(pdd a, pdd b)
{ return {a.X - b.X, a.Y - b.Y}; }
pdd operator*(ld i, pdd v)
{ return {i * v.X, i * v.Y}; }
pdd operator*(pdd v, ld i)
{ return {i * v.X, i * v.Y}; }
pdd operator/(pdd v, ld i)
{ return {v.X / i, v.Y / i}; }
ld dot(pdd a, pdd b)
{ return a.X * b.X + a.Y * b.Y; }
ld cross(pdd a, pdd b)
{ return a.X * b.Y - a.Y * b.X; }
ld abs2(pdd v)
{ return v.X * v.X + v.Y * v.Y; };
ld abs(pdd v)
{ return sqrt(abs2(v)); };
int sgn(ld v)
{ return v > 0 ? 1 : (v < 0 ? -1 : 0); }
// int sgn(ld v){ return v > eps ? 1 : ( v < -eps ? -1 : 0); }
int ori(pdd a, pdd b, pdd c)
{ return sgn(cross(b - a, c - a)); }
bool collinearity(pdd a, pdd b, pdd c)
{ return ori(a, b, c) == 0; }
bool btw(pdd p, pdd a, pdd b)
{ return collinearity(p, a, b) && sgn(dot(a - p, b - p)) <= 0; }

bool seg_intersect(pdd p1, pdd p2, pdd p3, pdd p4){
  if(btw(p1, p3, p4) || btw(p2, p3, p4) || btw(p3, p1, p2) || btw(p4, p1, p2))
    return true;
  return ori(p1, p2, p3) * ori(p1, p2, p4) < 0 &&
    ori(p3, p4, p1) * ori(p3, p4, p2) < 0;
}
pdd intersect(pdd p1, pdd p2, pdd p3, pdd p4){
  ld a123 = cross(p2 - p1, p3 - p1);
  ld a124 = cross(p2 - p1, p4 - p1);
  return (p4 * a123 - p3 * a124) / (a123 - a124);
}
pdd perp(pdd p1)
{ return pdd(-p1.Y, p1.X); }
pdd projection(pdd p1, pdd p2, pdd p3)
{ return p1 + (p2 - p1) * dot(p3 - p1, p2 - p1) / abs2(p2 - p1); }
pdd reflection(pdd p1, pdd p2, pdd p3)
{ return p3 + perp(p2 - p1) * cross(p3 - p1, p2 - p1) / abs2(p2 - p1) * 2; }
pdd linearTransformation(pdd p0, pdd p1, pdd q0, pdd q1, pdd r) {
  pdd dp = p1 - p0, dq = q1 - q0, num(cross(dp, dq), dot(dp, dq));
  return q0 + pdd(cross(r - p0, num), dot(r - p0, num)) / abs2(dp);
} // from line p0--p1 to q0--q1, apply to r 

// -1: a // b (if same), 0/1: a < b
int cmp(pll a, pll b, bool same = true, pll dir = pll(1, 0)){
#define is_neg(k) (cross(dir, k) < 0 || (cross(dir, k) == 0 && dot(dir, k) < 0))
  int A = is_neg(a), B = is_neg(b);
  if(A != B)
    return A < B;
  if(sgn(cross(a, b)) == 0)
    return same ? abs2(a) < abs2(b) : -1;
  return sgn(cross(a, b)) > 0;
}

const ll MOD = 998244353;
ll inv(ll a) {
    ll b = MOD - 2;
    ll ans = 1;
    while (b > 0) {
        if (b & 1) ans = ans * a % MOD;
        a = a * a % MOD;
        b >>= 1;
    }
    return ans;
}

int main(){
    StarBurstStream;

    int n, m, S;
    cin >> m >> n >> S;

    S = S * inv(100) % MOD;
    ll D = (1 - S + MOD) % MOD;

    vector<pll> recv(m);
    for (int i = 0; i < m; i++)
        cin >> recv[i].X >> recv[i].Y;
    vector<pll> pts(n);
    for (int i = 0; i < n; i++)
        cin >> pts[i].X >> pts[i].Y;

    vector<ll> spow(n + 1), invspow(n + 1);
    vector<ll> dpow(n + 1), invdpow(n + 1);
    spow[0] = 1; invspow[0] = 1;
    dpow[0] = 1; invdpow[0] = 1;
    for (int i = 1; i <= n; i++) {
        spow[i] = spow[i - 1] * S % MOD, invspow[i] = inv(spow[i]);
        dpow[i] = dpow[i - 1] * D % MOD, invdpow[i] = inv(dpow[i]);
    }

    sort(iter(pts), [&](pll x, pll y) {
        return x.Y != y.Y ? x.Y < y.Y : x.X < y.X;
    });

    vector good(n, vector<bool>(n, true));
    for (int i = 0; i < n; i++) {
        for (int j = 0; j < n; j++) {
            for (pll p : recv)
                if (ori(pts[i], pts[j], p) < 0
                        || (ori(pts[i], pts[j], p) == 0 && !btw(p, pts[i], pts[j]))) good[i][j] = false;
            
        }
    }

    // all points are distinct
    // cnt[i][j] = # of point k s.t. strictly above ij, and i < k < j
    // cnt2[i][j] = # of points k s.t. strictly in ij
    vector cnt(n, vector<int>(n)), cnt2(n, vector<int>(n));
    for (int i = 0; i < n; i++)
        for (int j = 0; j < n; j++){
            if (pts[i] >= pts[j]) continue;
            for (int k = 0; k < n; k++) {
                if (pts[i] < pts[k] && pts[k] < pts[j]) {
                    int tmp = ori(pts[i], pts[j], pts[k]);
                    if (tmp > 0) cnt[i][j]++; // only for i < j
                    else if (tmp == 0) cnt2[i][j]++, cnt2[j][i]++;
                }
            }
        }

    debug("cnt");
    for (int i = 0; i < n; i++) pary(iter(cnt[i]));
    debug("cnt2");
    for (int i = 0; i < n; i++) pary(iter(cnt2[i]));

    auto calc_tri = [&](array<int, 3> arr) { // strictly inside
        sort(iter(arr), [&](int x, int y){ return pts[x] < pts[y]; });
        auto [x, y, z] = arr;
        int tmp = ori(pts[x], pts[y], pts[z]);
        if (tmp == 0) return 0;
        else if (tmp < 0) return cnt[x][z] - cnt[x][y] - cnt[y][z] - cnt2[x][y] - cnt2[y][z] - 1;
        else return cnt[x][y] + cnt[y][z] - cnt[x][z] - cnt2[x][z];
    };

    auto getvec = [&](pii x) {
        return pts[x.ss] - pts[x.ff];
    };
    pary(iter(pts));

    ll ans = 0;
    auto solve = [&](int bottom) {
        debug("solve", bottom, pts[bottom]);
        
        pll O = pts[bottom];
        vector<pii> trans;

        for (int j = bottom + 1; j < n; j++) {
            for (int k = bottom + 1; k < n; k++) {
                if (ori(O, pts[j], pts[k]) <= 0) continue;
                if (!good[j][k]) continue;
                trans.pb(pii(j, k));
            }
        }

        sort(iter(trans), [&](pii x, pii y) -> bool{
            int tmp = cmp(getvec(x), getvec(y), false);
            if (tmp != -1) return tmp;
            pll v = getvec(x);
            return dot(v, pts[x.ff]) > dot(v, pts[y.ff]);
        });
        vector<ll> dp(n);
        for (int j = bottom + 1; j < n; j++) {
            if (!good[bottom][j]) continue;
            debug("init trans", j, "cnt", cnt2[bottom][j], "+ 2");
            dp[j] = invdpow[cnt2[bottom][j] + 2] * S % MOD * S % MOD;
        }
        for (auto [i, j] : trans) {
            debug("normal trans", i, j, "cnt", calc_tri({bottom, i, j}), cnt2[i][j], cnt2[bottom][j], "+ 1");
            dp[j] += dp[i] * invdpow[calc_tri({bottom, i, j}) + 1 + cnt2[i][j] + cnt2[bottom][j]] % MOD * S % MOD;
            dp[j] %= MOD;
        }
        for (int j = bottom + 1; j < n; j++) {
            if (!good[j][bottom]) continue;
            debug("end trans", j, dp[j]);
            ans += dp[j];
            ans %= MOD;
        }
    };
    for(int i = 0; i < n; i++) solve(i);

    ans *= dpow[n];
    ans %= MOD;
    cout << ans << "\n";


}