Bài 1:

program oken;
uses crt;
var i:byte;
begin
        clrscr;
        for i:=1 to 10 do
                writeln('Happy Birthday To You');
        readln;
end.

bài 2:

program oken;
uses crt;
var i:byte;
begin
        clrscr;
        write('cac so tu 1 den 10: ');
        for i:=1 to 10 do
                write(i,' ');
        readln;
end.

bài 3:

program oken;
uses crt;
var a,b,i:integer;
begin
        clrscr;
        write('nhap so a: '); readln(a);
        write('nhap so b: '); readln(b);
        write('cac so tu ',a,' den ',b,': ');
        for i:=a to b do
                write(i,' ');
        readln;
end.

Bài 4:

program oken;
uses crt;
var a,b,i,sum:longint;
begin
        clrscr;
        write('nhap so a: '); readln(a);
        write('nhap so b: '); readln(b);
        sum:=0;
        for i:=a to b do
                if (i mod 2=0) then
                        sum:=sum+i;
        writeln('tong cac so chan tu ',a,' den ',b,': ',sum);
        readln;
end.

Bài 5:

program oken;
uses crt;
var a,b,i,s: longint;
begin
        clrscr;
        write('nhap a: '); readln(a);
        write('nhap b: '); readln(b);
        s:=0;
        for i:=a to (b-1) do
                if b mod i=0 then s:=s+i;
        write('tong cac so nguyen to tu ',a,' den ',b,': ',s);
        readln;
end.

1/

Program BTH;
uses crt;
var i:longint;
begin
        clrscr;
        For i:=1 to 10 do
                writeln('Happy Birthday to you');
        readln;
end.

2/

Program BTH;
uses crt;
var i:longint;
begin
        clrscr;
        For i:=1 to 10 do
                write(i,' ');
        readln;
end.

3/

Program BTH;
uses crt;
var i,a,b:longint;
begin
        clrscr;
        write('Nhap a: ');readln(a);
        write('Nhap b: ');readln(b);
        For i:=a to b do
                write(i,' ');
        readln;
end.

4/

Program BTH;
uses crt;
var i,a,b:longint;
begin
        clrscr;
        write('Nhap a: ');readln(a);
        write('Nhap b: ');readln(b);
        For i:=a to b do
                If i mod 2=0 then write(i,' ');
        readln;
end.

5/

Program BTH;
uses crt;
var i,a,b,s:longint;
Begin
        clrscr;
        Write('Nhap a: ');readln(a);
        write('Nhap b: ');readln(b);
        For i:=a to b do
                s:=s+i;
        writeln('Tong day so tu ',a,' den ',b,' la: ',s);
        readln;
end.