PROGRAM pole_kola;
USES crt;

CONST PI=3.14;
VAR kupa, imie:String;

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