program bankomat;
uses crt;
var PIN: String;
begin

    writeln('Podaj PIN:');
    readln(PIN);
    if(PIN='1234') then
    begin
        read(PIN);
        if(Pin='1234') then
        writeln('DOBRY 2 COMBO')
        else
        writeln('Dobry pin');
    end
    else if(PIN='0000') then
        writeln('SAME 0');
    readln;
    readkey;
end.