Bài 1. Viết chương trình nhập số nguyên N, kiểm tra N là số âm hay số không âm. Bài 2. Viết chương trình tìm số bé nhất (Min) của 3 số a, b, c nhập từ bàn phím. Bài 3. Viết chương trình nhập giá trị R. Kiểm tra xem R có phải là số dương hay không? Nếu đúng thì tính diện tích hình tròn bán kính R.

câu 1:
var n:integer;

begin

clrscr;

write('nhap so n ='); readln(n);

if n> 0 then writeln('n la so duong ') else

writeln('n la so am ');

readln;

end.
Câu 2:

var a,b,c:longint;

begin

write('Nhap so a= ');readln(a);

write('Nhap so b= ');readln(b);

write('Nhap so c= ');readln(c);

min:=a;

if min>b then min:=b

else if min>c then min:=c;

writeln('So nho nhat la ',min);

readln

end.

Câu 3: 

var n:integer;

begin

clrscr;

write('nhap so R ='); readln(n);

if n> 0 then writeln(n*n*3.14) else

writeln('n la so am ');

readln;

end.