Bài 3 :

Var R, S : real;

Const pi = 3.14;

Begin

Writeln('Nhap ban kinh hinh tron R = ');

Readl(R);

S := pi * R * R;

Writeln('Dien tich hinh tron la : ', S);

Readln

End.

Bài 4 : 

* Xác định bài toán :

- Input : bốn số a, b, c, d

- Output : giá trị lớn nhất trong 4 số a, b, c, d

* Mô tả thuật toán :

- Bước 1 : nhập 4 số a, b, c, d

- Bước 2 : max ← a;

- Bước 3 : nếu b > max thì max ← b

- Bước 4 : nếu c > max thì max ← c

- Bước 5 : nếu d > max thì max ← d

- Bước 6 : in ra giá trị max

- Bước 7 : kết thúc

* Viết chương trình :

uses crt;

var a, b, c, d, max : integer;

begin

clrscr;

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

max := a;

if b > max then max := b;

if c > max then max := c;

if d > max then max := d;

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

readln

end.

Bài 3:

Var R,S:real;

Const pi=3.14;

Begin

Writeln('Nhap ban kinh hinh tron R='); 

Readln(R);

S:=pi*R*R;

Writeln('Dien tich hinh tron la: ',S);

Readln

End.