BPCAN PASCAL

program HamSoHoc;
var    x, bp:longint;
    can:real;
begin
    assign(input,'bpcan.inp');reset(input);
    assign(output,'bpcan.out');rewrite(output);
    read(x);
    bp:=sqr(x);
    writeln('Binh phuong cua ',x,' la ',bp);
    can:=sqrt(x);
    writeln('Can bac hai cua ',x,' la ',can:0:2); 
end.