1/
uses crt;
var a:longint;
begin
clrscr;
write)'Nhap a=');readln(a);
writeln('a binh phuong=',sqr(a));
writeln('can bac 2 so hoc cua a=',sqrt(a):0:2);
readln;
end.
2/
uses crt;
var x:longint;
begin
clrscr;
write('Nhap tuoi con=');readln(x);
writeln('Tuoi cua bo=',x*10);
writeln('Tuoi cua bo 6 nam sau=',x*10+6);
readln;
end.