ai giúp mình trước 14h00 chiều với ;(( 1/Viết chương trình nhập vào số nguyên dương a. In ra màn hình kết quả bình phương và căn bậc 2 của a 2/ Nhập tuổi của con là x tuổi , tuổi bố là y , viết chương trình tính tuổi bố biết năm nay tuổi cha gấp 10 lần tuổi con , 6 năm nữa tuổi cha gấp 4 lần tuổi con

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.

1)uses crt;
var a:longint;
begin
clrscr;
   write('a= ');readln(a);
   writeln('Binh phuong: ',a*a);
   writeln('Can bac 2: ',sqrt(a):0:10);
readln
end.

2)uses crt;
var x:longint;
begin
clrscr;
   write('x= ');readln(x);
   writeln('Tuoi cua bo: ',x*10);
readln
end.