PROGRAM pole_kola;
USES crt;

VAR kupa, imie:String;

BEGIN
    clrscr;
    imie := 'Artur';
    kupa := imie;
    imie := 'Kebab';
    writeln(imie);
    writeln(kupa);
END.