Question

                                      cacs bn giup mk vs 

Answer 1

Câu 4: 

uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);

writeln('Binh phuong cua ',a,' la: ',sqr(a));

readln;

end.

Answer 2