* Chương trình 1 :

program chia;

uses crt;

var n : integer;

begin

clrscr;

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

if n mod 2 = 0 then writeln(n,' la so chia het cho 2')

else writeln(n,' khong chia het cho 2');

readln

end.

* Chương trình 2 :

program tong;

uses crt;

var i, s : integer;

begin

clrscr;

s := 0;

for i := 1 to 100 do s := s + i;

writeln('tong s tu 1 den 100 la :', s);

readln

end.

Viết chương trình nhập vào từ bàn phím số nguyên n. Kiểm tra xem n có phải là số chia hết cho 2.

program bai_giai;

uses crt;

var n:longint;

begin

clrscr;

write('nhap n:');readln(n);

if(n mod 2=0)then write('n chia het cho 2')else('n khong chia het cho 2');

readln;

end.

Viết chương trình tính và in ra màn hình tổng của 100 số tự nhiên đầu tiên.

program bai_giai;

uses crt;

var s,i:longint;

begin

clrscr;

s:=0;

for i:=1 to 100 do s:=s+i;

write('tong 100 so tu nhien dau tien la:',s);

readln;

end.