Câu 1 : 

Program BT_1;
Var n,i : longint;
Begin
repeat
Write ('Nhap N : ');Readln(n);
until n > 0 ;
For i := 1 to n do Write(i,' ; ');
end.

Câu 2 : 

Program BT_2;
Var s : string;
Begin
Write ('Nhap xau : ');Readln(s);
Write ('Xau do la : ',s);
end.

Câu 3 : 

Program BT_3;
Var n,t,i : longint;
    a : array [1..100] of longint;
Begin
Repeat
Write ('Nhap N : ');Readln(n);
until (n > 0) and (n <= 100);
t := 0;
For i := 1 to n do
Begin
repeat
Write ('A[',i,']= ');Readln(A[i]);
until A[i] <> 0;
If A[i] mod 2 = 0 then t := t + a[i];
end;
If t = 0 then Write ('Khong co so chan nao trong day nguyen A !') else Write ('Tong la : ',t);
end.

Câu 4 : 

Program BT_4;
Var s : string;
    i : longint;
    kt : boolean;
Begin
Write ('Nhap xau : ');Readln(s);
kt := true;
For i := 1 to length(s) do 
Begin
If s[i] = ' ' then kt :=false;
If kt then Write (s[i]);
kt := true;
end;
end.

Câu 5 : 

Program BT_5;
Var n,i,t : longint;
    a : array [1..100] of longint;
Begin
repeat
Write ('Nhap N : ');Readln(n);
until (n > 0) and (n <= 250);
t := 0;
For i := 1 to n do
Begin
Write ('A[',i,']= ');Readln(a[i]);
If a[i] < 0 then t := t + a[i];
end;
For i := 1 to n do If a[i] < 0 then Write (a[i],' ; ');
If t = 0 then Write ('Khong co phan tu am ! ') else
Begin
Writeln;
Write ('Tong la : ',t);
end;
end.