Input:x

Output:x^2

Do trên đấy ko mô tả thuật toán bằng sơ đồ khối nên thôi nhé ^^

Program BT1;

Uses crt; Var x,xx:Longint;

Begin

Writeln('Vui long nhap gia tri x');

Readln(x);

If x<>0 then begin xx:=x*x;Writeln('Binh phuong cua x la ',xx) end

Else Writeln('Hay nhap gia tri cua x');

Readln;

End.