var a,b,m,n,p:longint;
cbh,bp,tb:real;
begin
write('Nhap vao a = ');readln(a);
cbh := sqrt(a);
writeln('a. Can bac hai = ',cbh:0:2);
write('Nhap vao b = ');readln(b);
bp := sqr(b);
writeln('b. Binh phuong = ',bp:0:2);
write('Nhap vao 3 so M,N,P = ');readln(m,n,p);
tb := (m+n+p)/3;
writeln('c. Trung binh cong = ',tb:0:2);
readln;
end.