Bài 1 :

- Dạng thiếu : if <điều kiện> then <câu lệnh>;

+ Hoạt động : điều kiện sẽ được tính và kiểm tra. Nếu điều kiện đúng thì câu lệnh sẽ được thực hiện, ngược lại thì câu lệnh sẽ bị bỏ qua

- Dạng đủ : if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

+ Hoạt động : điều kiện cũng được tính và kiểm tra. Nếu điều kiện đúng thì câu lệnh 1 sẽ được thực hiện, ngược lại câu lệnh 2 sẽ được thực hiện

Bài 2 : 

uses crt;

var a, b, c, max : integer;

begin

clrscr;

write('nhap so a, b, c :');readln(a, b, c);

max := a;

if b > max then max := b;

if c > max then max := c;

writeln('gia tri lon nhat :', max);

readln

end.

Bài 3 :

uses crt;

var a, b, s : real;

begin

clrscr;

write('nhap ban kinh :');readln(a);

b := sqrt(a * a + a * a);

s := (a * a * 3.14) - b * b;

writeln('dien tich phan gach cheo :', s:3:1);

readln

end.