ex.dpr

tongji acm-online judge solution

//note: if use extended wa at 12
program Ural_1336(Input,Output);
type
	TData=Int64;
var
	N:TData;
begin
	Readln(N);
	Writeln(Sqr(N));
	Writeln(N);
end.