program Hello;
var n,x,d,i:longint;
begin
readln(n);
for i:= 1 to n do
begin
read(x);
if x mod 3 = 0 then
inc(d);
end;
writeln('Co ', d, ' so chia het cho 3.');
end.
========================================
program Hello;
var n,j,d,i:longint;
a: array[1..100000] of longint;
begin
readln(n);
for i:= 1 to n do
read(a[i]);
for i:= 1 to n do
for j:= 1 to n do
if a[i] < a[j] then
begin
d:=a[i];
a[i]:=a[j];
a[j]:=d;
end;
for i:= 1 to n do
write(a[i], ' ');
end.
====================================
program Hello;
var n,i:longint;
ten,lop: array[1..100000] of string;
begin
readln(n);
for i:= 1 to n do
begin
writeln(i, '. ');
readln(ten[i]);
readln(lop[i]);
end;
for i:= 1 to n do
writeln(i, '. Ten ', ten[i], ' lop ', lop[i]);
end.