Что лучше использовать для украшения одежды: бисер, стразы или пайетки

однозначно .будет миленько )

uses crt;
var n: integer;
begin
write('Введите номер месяца: ');
readln(n);
case n of
1:
begin
writeln(' 1 января - Новый год');
writeln(' 7 января - Рождество Христово');
writeln('19 января - Крещение Господне');
end;
2:
begin
writeln(' 8 февраля - День Российской науки');
writeln('20 февраля - Международный день родного языка');
writeln('23 февраля - День защитника Отечества');
writeln('28 февраля - Масленица');
end;
3:
begin
writeln(' 1 марта - Праздник прихода весны');
writeln(' 8 марта - Международный женский день');
end;
4:
begin
writeln(' 1 арпеля - Международный день птиц');
writeln(' 7 апреля - День рождения Рунета');
writeln('12 апреля - Католическая Пасха');
writeln('23 апреля - Пасха');
end;
5:
begin
writeln(' 1 мая - День труда');
writeln(' 9 мая - День Победы');
writeln('10 мая - День матери');
writeln('15 мая - Международный день семьи');
end;
6:
begin
writeln(' 5 июня - Всемирный день охраны окружающей среды');
writeln(' 6 июня - Троица');
writeln('24 июня - Купала');
writeln('25 июня - День единения славян');
end;
7:
begin
writeln(' 6 июля - Всемирный день поцелуя');
writeln(' 8 июля - Всероссийский день семьи, любви и верности');
writeln('10 июля - День рыбака');
writeln('11 июля - Всемирный день шоколада');
end;
8:
begin
writeln('12 августа - День Военно-воздушных сил (День ВВС)');
writeln('22 августа - День Государственного флага Российской Федерации');
end;
9:
begin
writeln(' 1 сентября - День знаний');
writeln('21 сентября - Международный день мира');
writeln('30 сентября - День Интернета в России');
end;
10:
begin
writeln(' 1 октября - Международный день улыбки');
writeln(' 5 октября - Всемирный день учителя');
writeln('31 октября - Хэллоуин - канун Дня всех святых');
end;
11:
begin
writeln(' 1 ноября - День всех святых');
writeln(' 8 ноября - Международный день КВН');
writeln('17 ноября - Международный день студентов');
writeln('27 ноября - День матери России');
end;
12:
begin
writeln(' 6 декабря - День сетевика');
writeln('10 декабря - День прав человека');
writeln('23 декабря - Католический сочельник');
writeln('25 декабря - Католическое Рождество');
end;
else writeln('Нет такого месяца!');
end;
readkey
end.

uses crt;
var
n,i,m,g,gg:integer;
begin
writeln('vvedite god');
readln(n);
if n > 1983 then  begin
while n>1983 do
n:=n-60;
m:=n-1923;
end
else begin
while n<1983 do
n:=n+60;
m:=n-1983;
end;
g:=(m div 12)+1;
gg:=m mod 12;
case g of
1: write('zeleno');
2: write('krasno');
3: write('zelto');
4: write('belo');
5: write('cherno');
6: write('cherno');
end;
case gg of
1: write('j krusu');
2: write('j korovu');
3: write('go tigra');
4: write('go zajca');
5: write('go drakona');
6: write('j zmei');
7: write('j loshadi');
8: write('j ovcu');
9: write('j obizjanu');
10: write('j kyricu');
11: write('j sobaki');
0: write('j svinji');
end;
readln;
end.