bài 1

program bai1;

uses crt;

var A:array[1..500] of integer;

      n,i:integer;

      t:longint;

begin

clrscr;

write('Nhap so luong phan tu: ');

readln(n);

writeln('Nhap gia tri cua tung phan tu');

for i:=1 to n do

 begin

  write('Nhap A[',i,']: ');

  readln(A[i]);

 end;

t:=0;

for i:=1 to n do

  if A[i] mod 5=0 then t:=t+A[i];

writeln('Tong cua cac so chia het cho 5 trong day la: ',t);

if t mod 2=0 then write('Tong chung la so chan')

  else write('Tong chung la so le');

readln

end.

bài 2

program bai2;

uses crt;

var st:string;

      i,d:byte;

begin

clrscr;

write('Nhap xau: ');

readln(n);

d:=0;

for i:=1 to length(st) do

  if st[i] in ['A'..'Z'] then inc(d);

write('Trong xau co ',d,' chu cai hoa');

readln

end.

uses crt;
var s: string;

      a,b,c,i: longint;

begin

clrscr;

readln(s);

fori:-=1 to length(s) do
begin

if [1] in ['A'..'Z'] then a:a+1
end;

write('co',a,'soky tu hoa')
readln;

end.