program SoDu;

var
    a, b, c, k, P, minNumber, remainder: integer;

begin
    // Nhập các số nguyên dương a, b, c từ bàn phím
    write('Nhap a: ');
    readln(a);
    write('Nhap b: ');
    readln(b);
    write('Nhap c: ');
    readln(c);

    // Tìm số nhỏ nhất trong 3 số đã nhập
    minNumber := a;
    if b < minNumber then
        minNumber := b;
    if c < minNumber then
        minNumber := c;

    writeln('So nho nhat la: ', minNumber);

    // Tìm tích lớn nhất P của hai trong ba số a, b, c
    P := a;
    if b * c > P then
        P := b * c;
    if a * c > P then
        P := a * c;

    // Nhập giá trị k từ bàn phím
    write('Nhap k: ');
    readln(k);

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

    writeln('So du la: ', remainder);
end.