Bai 1
var i:byte;
begin
for i:=1 to 50 do
writeln('Xin chao ban, rat vui vi duoc lam quen voi ban');
readln;
end.
Bai 2
var so,n,i,d:qword;
begin
readln(n);
writeln('nhap lan luot cac phan tu cua mang');D:=0;
for i:=1 to n do begin
readln(so);
if odd(so) then inc(d);
writeln('so so chan:',n-d,'; so so le:',d);
readln;
end.
Bai 3
Bai 2
var so,n,i,d,t:qword;
begin
readln(n);
writeln('nhap lan luot cac phan tu cua mang');D:=0;t:=0;
for i:=1 to n do begin
readln(so);
if odd(so) then d:=d+so;t:=t+so;
writeln('tong so chan:',t-d,'; tong so le:',d);
readln;
end.
Bai 5
var s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then s[i]:=chr(ord(s[i]) -32);
writeln(s);readln;
end.
