Bài 1. Khởi động Pascal, gõ nhập chương trình sau: uses crt; var a: array[1..100] of integer; n:byte; s: word; begin clrscr; randomize; write(nhap n='); readln(n); for i:=1 to n d a[i]:=random(200)-50; s=0; write('DAY SO: '); for i:=1 to n do begin write(a[i]:4); If ai>0 then s:=s+a[i]; end; writeln; write(' Tong la: ',s) readin end. Yêu cầu: a) Trong chương trình trên còn một số lỗi cú pháp, hãy tìm lỗi và sửa lỗi? b) Hãy cho biết chương trình trên làm gì?d) Chèn thêm đoạn lệnh thích hợp để in ra màn hình các số dương có 2 chữ số? e) Chèn thêm đoạn lệnh thích hợp để in ra màn hình tổng của các số dương chẵn? f) Chèn thêm đoạn lệnh thích hợp để in ra màn hình các số nguyên tố trong dãy? Bài 2. Viết chương trình nhập vào một xâu kí tự. Thực hiện các yêu cầu: a) Chuẩn hóa xấu, in xâu ra màn hình? b) Đếm và in ra màn hình số lượng các xâu '11A' có trong xâu? c) Đếm và in ra màn hình số lượng các kí tự chữ số có trong xâu?