Câu 1:

uses crt;

var r:real;

begin

clrscr;

readln(r);

write('S= ',r*r*3.14:10:2);

readln

end.

Câu 2:

 uses crt;

 var a,b:real;

 begin

 clrscr;

 readln(a,h);

 write('S= ',a*h);

 readln

 end.

Câu 3:

uses crt;

var a,b,c:longint;

begin

clrscr;

write('So lon nhat: ');

 if (a<c) and (b<c) then write(c);

 if (b>a) and (b>c) then write(b);

 if (a>b) and (a>c) then write(a);

readln

end.

Câu 4:

uses crt;

var a,b,c:longint;

begin

clrscr;

write('So nho nhat: ');

 if (a>c) and (b>c) then write(c);

 if (b<a) and (b<c) then write(b);

 if (a<b) and (a<c) then write(a);

readln

end.

Câu 5:

uses crt;
var a,b:longint;
begin
clrscr;
readln(a,b);
if (a=0) and (b=0) then write('Pt co vo so No');
if (a=0) and (b<>0) then write('Pt vo No');
if (a<>0) and (b<>0) then write('Pt co nghiem x= ',-b/a:10:2);
readln
end.

Câu 6:

uses crt;

var a,b,c:longint;

begin
clrscr;

repeat readln(a,b,c);
untila<>0;
d:=sqr(b)-4*a*c;
 IF d<0 THEN write('Phuong trinh vo nghiem!')
    ELSE
    BEGIN
         x1:=(-b-sqrt(d))/(2*a);
         x2:=(-b+sqrt(d))/(2*a);
         IF d=0 THEN writeln('Phuong trinh co nghiem kep x = ',x1:0:2)
         ELSE writeln('Phuong trinh co 2 nghiem phan biet: ',x1:0:2,' ',x2:0:2);
    END;
 readln;
END. 

Chú ý: các bài đều có thể khai báo bằng các kiểu dữ liệu khác nhau như longint,real, integer,...Nếu khai báo là real thì cần phải viết :0:2 hoặc :0:..(tùy theo bản thân) ở phần kết quả riêng bài 6 thì kết quả luôn phải viết dạng :0:2 hoặc :=0:..(tùy theo ý của bản thân))

1)Program Tuongtaylor;
uses crt;
var r:real;
begin
clrscr;
   write('R=');readln(r);
   writeln('Dien tich: ',r*r*pi:0:2);
readln
end.

2)Program Tuongtaylor;
uses crt;
var a,h:longint;
begin
clrscr;
   write('a,h= ');readln(a,h);
   writeln('Dien tich: ',(a*h)/2:0:2);
readln
end.

3)Program Tuongtaylor;
uses crt;
var a,b,c:longint;
begin
clrscr;
   write('a,b,c= ');readln(a,b,c);
   write('So lon nhat: ');
   if(a>b)and(a>c)then write(a) else
   if(b>a)and(b>c)then write(b) else write(c);
readln
end.

4)Program Tuongtaylor;
uses crt;
var a,b,c:longint;
begin
clrscr;
   write('a,b,c= ');readln(a,b,c);
   write('So be nhat: ');
   if(a<b)and(a<c)then write(a) else
   if(b<a)and(b<c)then write(b) else write(c);
readln
end.