3.

uses crt;

var x:integer;

begin

clrscr;

write('nhap so nguyen x:');readln(x);

write('binh phuong cua x la:',sqr(x));

readln;

end.

4.

uses crt;
var a,b,c,d:real;
begin
clrscr;
    readln(a,b,c);
    d:=b*b-4*a*c;
    if d<0 then write('PT vo nghiem')
    else if d=0 then write('PT co nghiem kep: x1=x2',-b/(2*a):0:2)
    else begin
        writeln('PT co 2 nghiem phan biet: ');
        writeln('x1=',(-b+sqrt(d))/(2*a):0:2);
        write('x2=',(-b-sqrt(d))/(2*a):0:2);
    end;
readln;
end.

5.

Var TB : real;

BEGIN

clrscr;

repeat

begin

write('Moi ban nhap diem trung binh: ');

Readln(TB);

end;

until (TB>0) and (TB<10);

If (TB >= 8) then write('hoc luc gioi') else

If (TB>=6.5) then write('hoc luc kha') else

If (TB>5) then write('hoc luc trung binh') else

If (TB>3.5) then write('hoc luc yeu') else

write('hoc luc kem');

Readln;

END.

3.

uses crt;

var x:integer;

begin

clrscr;

write('Nhap x:');

readln(x);

if x<0 then write('binh phuong cua x la:',x*x);

else then write('gia tri tuyet doi cua x la:', x)

readln;

end.

5.

var a,b,tb : real;
begin
clrscr;
write('nhap diem ly thuyet: ');
readln(a);

write('nhap diem thuc hanh: ');
readln(b);
tb:=(a+b)/2;
if (TB >= 8) then write('hoc luc gioi') else
if (TB>=6.5) then write('hoc luc kha') else
if (TB>5) then write('hoc luc trung binh') else
if (TB>3.5) then write('hoc luc yeu') else write('hoc luc kem');
readln;
end.

4. Viết chương trình giải phương trình bậc hai: ax^2+bx+c=0

`=>` Cái này mik chưa học bạn thông cảm.