program Program01;
uses sysutils;
var
	szam : integer;
	str : string;
BEGIN

	szam := 3;
	str := IntToStr(szam);
END.