1)

program bai1;

uses crt;

var i:integer;

begin clrscr;

   for i:=1 to 5 do

     begin

        writeln('Xin chao');

        writeln('Toi la Pascal');

     end;

readln;

end.

2)

program bai2;

uses crt;

var S:integer;

      i:integer;

begin clrscr;

     S:=0;

   for i:=1 to 50 do

     S:=S+i;

   write('Tong tu 1-50 la: ',S);

readln;

end.

3)

program bai3;

uses crt;

var T:integer;

      i:integer;

begin clrscr;

     T:=1;

   for i:=1 to 10 do

     T:=T*i;

   write('Tich tu 1-10 la: ',T);

readln;

end.

4)

program bai4;

uses crt;

var S:integer;

      i:integer;

begin clrscr;

     S:=0

   for i:=1 to 9 do

     S:=S+1/i;

   write('Tong day so la: ',S);

readln;

end.

5)

program bai5;

uses crt;

var S:integer;

      i:integer;

begin clrscr;

     S:=0

   for i:=1 to 9 do

     if i mod 2<>0 then

     S:=S+1/i;

   write('Tong day so la: ',S);

readln;

end.

6)

program bai6;

uses crt;

var S:integer;

      i:integer;

begin clrscr;

     S:=0

   for i:=1 to 8 do

     if i mod 2=0 then

     S:=S+1/i;

   write('Tong day so la: ',S);

readln;

end.

7)

program bai7;

uses crt;

var S:integer;

      i,n:integer;

begin clrscr;

   writeln('Nhap 1 so n: '); readln(n);

     S:=0;

   for i:=1 to n do

     S:=S+i;

   write('Tong la: ',S);

readln;

end.

8)

program bai8;

uses crt;

var S:integer;

      i,n:integer;

begin clrscr;

   writeln('Nhap 1 so n: '); readln(n);

     S:=0;

   for i:=1 to n do

     if i mod 2=0 then

     S:=S+i;

   write('Tong la: ',S);

readln;

end.

9)

program bai9;

uses crt;

var T:integer;

      i,n:integer;

begin clrscr;

   writeln('Nhap 1 so n: '); readln(n);

     T:=1;

   for i:=1 to n do

     T:=T*i;

   write('n! la: ',T);

readln;

end.

10)

program bai10;

uses crt;

var S:integer;

      i,n,m:integer;

begin clrscr;

   writeln('Nhap  n va m: '); readln(n,m);

     S:=0;

   for i:=n to m do

     S:=S+i;

   write('Tong la: ',S);

readln;

end.

11)

program bai11;

uses crt;

var S:integer;

      i,n:integer;

begin clrscr;

   writeln('Nhap 1 so n: '); readln(n);

     S:=0;

   for i:=1 to n do

     S:=S+i*i;

   write('Tong la: ',S);

readln;

end.

12)

program bai12;

uses crt;

var b:integer;

      i,n,B:integer;

begin clrscr;

   writeln('Nhap so n va B: '); readln(n,B);

     b:=0;

   for i:=B to n do

     if i mod B=0 then

   write('Boi cua B la: ',b);

readln;

end.

13)

program ct;

uses crt;

var C,i:integer;

      S:longint;

begin clrscr;

   write('Nhap so C: '); readln(C);

     S:=0;

   for i:=1 to (C-1) do

     if (C mod i=0) then S:=S+i;

   if S=C then writeln(C,' la so hoan hao')

else writeln(C,' khong phai la so hoan hao');

readln;

end.

Học tốt!