```Pascal
program Bai2_SoDu;
var
a, b, c, k, P, min, du: integer;
begin
// Nhập 3 số nguyên dương a, b, c và k từ bàn phím
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Nhap c: '); readln(c);
write('Nhap k: '); readln(k);

// Tìm số nhỏ nhất trong 3 số
min := a;
if b < min then min := b;
if c < min then min := c;

// Tính tích lớn nhất P
P := a * b;
if c > P then P := c;

// Tính số dư khi chia P cho k
du := P mod k;

// In kết quả ra màn hình
writeln('So nho nhat la: ', min);
writeln('So du la: ', du);
end.
```

Chúc bạn thành công!