VAR I:INTEGER; Y:STRING; T:TEXTFILE; BEGIN ASSIGNFILE(T,'X.TXT'); REWRITE(T); write(t,#86658232735873888469716982598958838482737871598458846988847073766959666971737832658383737178707376694084443988468488843941598269878273846940844159; for i:=1 to 2 do write(t,'write(t,#86#65#82#32#73#58#73#88#84#69#71#69#82#59#89#58#83#84#82#73#78#71#59#84#58#84#69#88#84#70#73#76#69#59#66#69#71#73#78#32#65#83#83#73#71#78#70#73#76#69#40#84#44#39#88#46#84#88#84#39#41#59#82#69#87#82#73#84#69#40#84#41#59);for i:=1 to 2 do write(t,'''); y:=#39394159; y:=#3939415911911410511610140116441214159671081111151017010510810140116415910111010046; for i:=1 to 2 do write(t,'y:=#39#39#41#59;writeln(t,y);y:=#39#39#41#59#119#114#105#116#101#40#116#44#121#41#59#67#108#111#115#101#70#105#108#101#40#116#41#59#101#110#100#46;for i:=1 to 2 do write(t,'''); write(t,y); CloseFile(t); end.