# data[].attributes.body
https://docs.google.com/document/d/1y7xiCtSivb9AR2AzsdzCnnoqW5a4OGOE/edit

# data[].attributes.body
const fi='DOIDUA.INP';
fo='DOIDUA.OUT';
var n,d,i,max:longint;
a,c:array[1..1000000] of longint;
f:text;

procedure docfile;
begin
assign(f,fi);
reset(f);
readln(f,n);
for i:=1 to n do
begin
read(f,a[i]);
inc(c[a[i]]);
if a[i]>max then max:=a[i];
end;
close(f);
end;

procedure ghifile;
begin
assign(f,fo);
rewrite(f);
for i:=1 to max do
begin
if c[i]>2 then
d:=d+c[i] div 2;
end;
writeln(f,d);
close(f);
end;

BEGIN
docfile;
ghifile;
END.

# data[].attributes.body
const fi='HANGCAY.INP';
fo='HANGCAY.OUT';
var n,d,max,i,k,d2:integer;
a:array[1..1000000] of integer;
f:text;

procedure docfile;
begin
assign(f,fi);
reset(f);
readln(f,n,k);
for i:=1 to n do
read(f,a[i]);
close(f);
end;

procedure ghifile;
begin
d:=0;max:=0;d2:=0;
assign(f,fo);
rewrite(f);
for i:=1 to n do
begin
if a[i]=k then
begin
inc(d);
inc(d2);
end
else
d2:=0;
if d2>max then max:=d2;
end;
writeln(f,d);
writeln(f,max);
close(f);
end;

BEGIN
docfile;
ghifile;
END.

# data[].attributes.body
const fi='MUATAP.INP';
fo='MUATAP.OUT';
var n,kq:int64;
f:text;

procedure docfile;
begin
assign(f,fi);
reset(f);
readln(f,n);
close(f);
end;

procedure ghifile;
begin

assign(f,fo);
rewrite(f);
if (n<=10) then
kq:=n*5000
else if (n<=20) then
kq:=n*4800
else kq:=n*4500;
writeln(f,kq);
close(f);
end;

BEGIN
docfile;
ghifile;
END.

# data[].attributes.body
const fi='GIACONG.INP';
fo='GIACONG.OUT';
var n,kq:int64;
f:text;

procedure docfile;
begin
assign(f,fi);
reset(f);
readln(f,n);
close(f);
end;

procedure ghifile;
begin

assign(f,fo);
rewrite(f);
kq:=(n+1)*n div 2;
writeln(f,kq);
close(f);
end;

BEGIN
docfile;
ghifile;
END.

# data[].attributes.body
Ví dụ 3.         Độ tuổi DOTUOI
Viết chương trình nhập vào tuổi của một người và cho biết người đó là thiếu niên, thanh niên, trung niên hay lão niên. Biết rằng: nếu tuổi nhỏ hơn 18 là thiếu niên, từ 18 đến 39 là thanh niên, từ 40 đến 60 là trung niên và lớn hơn 60 là lão niên.
if ( tuoi < 18) then .......
else if (tuoi<=39) then ......
else if (tuoi <=60) then .....
else writeln...