program ctpt;
uses crt;
var n, g, k: real;
begin
clrscr;
write('Nhap n = '); readln(n);
write('Nhap g = '); readln(g);
write('Nhap k = '); readln(k);
writeln('Binh phuong cua n = ', n*n);
writeln('Binh phuong cua g = ', g*g);
writeln('Binh phuong cua k = ', k*k);
readln
end.