Program Pifagor_SmirnovS;
Var DR, D1, D2, M1, M2, G1, G2, G3, G4, R1, R2, R3, R4, K1, K2, K3, K4, K5, K6, K7, K8, K9, i, d, S1, S2, S3, S4, S5, S6, S7, S8:integer;
P:array [1..16] of integer;
begin
Write('Введи дату рождения в формате ДДММГГГГ');
read(DR);
D1:=DR div 10000000;
D2:=DR div 1000000;
M1:=DR div 100000;
M2:=DR div 10000;
G1:=DR div 1000;
G2:=DR div 100;
G3:=DR div 10;
G4:=DR mod 10;
R1:=D1+D2+M1+M2+G1+G2+G3+G4;
if R1>9 then R2:=(R1 div 10)+(R1 mod 10)
else R2:=R1;
R3:=R1-2*D1;
if R3>9 then R4:=(R3 div 10) + (R3 mod 10)
Else R4:=R3;
P[1]:= D1;
P[2]:= D2;
P[3]:= M1;
p[4]:= M2;
p[5]:= G1;
p[6]:= G2;
p[7]:= G3;
p[8]:= G4;
if R1>9 then begin p[9]:=R1 div 10; p[10]:= R1 mod 10 end
Else begin
p[9]:=0; p[10]:=R1 end;
if R2>9 then begin p[11]:=R2 div 10; p[12]:= R2 mod 10 end
Else begin
p[11]:=0; p[12]:=R2 end;
if R3>9 then begin p[13]:=R3 div 10; p[14]:= R3 mod 10 end
Else begin
p[13]:=0; p[14]:=R3 end;
if R4>9 then begin p[15]:=R4 div 10; p[16]:= R4 mod 10 end
Else begin
p[15]:=0; p[16]:=R4 end;
K1:=0; K2:=0; K3:=0; K4:=0; K5:=0; K6:=0; K7:=0; K8:=0; K9:=0;
For i:=1 to 16 do
begin
If p=1 then K1:=K1+1;
If p=2 then K2:=K2+1;
If p=3 then K3:=K3+1;
If p=4 then K4:=K4+1;
If p=5 then K5:=K5+1;
If p=6 then K6:=K6+1;
If p=7 then K7:=K7+1;
If p=8 then K8:=K8+1;
If p=9 then K9:=K9+1;
end;
If K1=0 then writeln('Характер отсутствует');
If K1=1 then writeln('Противоречивый характер');
If K1=2 then writeln('Отличаются мягким характером');
If K1=3 then writeln('Добрый, уступчивый характер');
If K1=4 then writeln('Очень волевой и сильный характер');
If K1=5 then writeln('Максимально выраженный характер власти');
If K1>=6 then writeln('Резкое изменение характера');
If K2=0 then writeln('Указывает на слабую энергетику');
If K2=1 then writeln('Дефицит энергии');
If K2=2 then writeln('Хорошая энергетика, наиболее благоприятная для контакта с людьми и работы');
If K2=3 then writeln('Дополнительно появляются и новые качества: замкнутость, нежелание делиться своими проблемами, взрывы эмоций при давлении со стороны, умение при необходимости помочь другому человеку');
If K2>=4 then writeln('Человек имеет избыток энергии и может позволить себе тратить ее по своему усмотрению ');
If K3=0 then writeln('Склонность к гуманитарным наукам, философии и искусству');
If K3=1 then writeln('Люди настроения (хочу - делаю, хочу - нет)');
If K3=2 then writeln('Способности к точным наукам (математике, физике, химии) и технике');
If K3>=3 then writeln('Характерна педантичность, опрятность');
If K3=4 then writeln('Означает сильный интерес к науке и технике');
If K4=0 then writeln('Слабое здоровье');
If K4=1 then writeln('Здоровье не плохое, но недостаточно крепкое, чтобы не говорить о его укреплении и профилактике');
If K4=2 then writeln('Здоровье хорошее, красивое, сильное тело, темперамент сангвинический');
If K4>=3 then writeln('Отменное здоровье, хорошие физические данные');
If K5=0 then writeln('Не пользуются логикой, "мечтатели", постоянно витают в облаках, им лучше выбирать гуманитарные направления деятельности или искусство, а не технику и точные науки');
If K5=1 then writeln('Логика есть, но она очень слабая и мало чем отличается от качества "5-нет"');
If K5=2 then writeln('Развита интуиция (следователи, юристы), сильная логика, способности к точным наукам и технике');
If K5=3 then writeln('Три пятерки значительно ослабляют логику, делая ее проявление скорее неожиданностью, чем закономерностью');
If K5>=4 then writeln('Почти не ошибаются в прогнозах');
If K6=0 then writeln('Отсутствует склонность к физическому труду');
If K6=1 then writeln('Человек пришел в этот мир получить земную профессию, ему необходим физический труд');
If K6=2 then writeln('"Золотые руки", мастера в любом деле, если речь идет о работе руками, но нуждаются в интеллектуальном развитии');
If K6=3 then writeln('Магически привлекательны с необычным темпераментом.');
If K6>=4 then writeln('Для них не существует бремени физического труда, им все знакомо и привычно.');
If K7=0 then writeln('"Свободные художники", не обремененные конкретными задачами, которые ставит перед ними Жизнь');
If K7=1 then writeln('Незначительное везение, талант есть, но не ярко выраженный');
If K7=2 then writeln('Такому человеку "везет". Судьба сама как-будто подталкивает его в нужном направлении');
If K7>=3 then writeln('Особенные, талантливые люди, которых можно назвать "инженерами" или конструкторами жизни');
If K8=0 then writeln('Лишены чувства долга, не терпят давления со стороны других');
If K8=1 then writeln('Сильно развито чувство собственности. Чувства долга и терпимости есть, но слабо развиты');
If K8=2 then writeln('Высокое чувство ответственности, всегда стремятся помочь другим');
If K8=3 then writeln('Знак служения народу, самоотвержены, добры, терпимы, помнят о родителях, но при этом могут быть рьяными правдоискателями, идущими по трупам (долг превыше доброты)');
If K8>=4 then writeln('Способности к изучению точных наук');
If K9=0 then writeln('Трудно представить себе человека лишенного памяти, т.к. не выросли люди, у которых нету 9-ки');
If K9=1 then writeln('Забывчивы, незлопамятны.');
If K9=2 then writeln('Хорошая память, от рождения разумная голова, но этого мало, нужно учиться');
If K9=3 then writeln('Отличная, но не стабильная память. Этому человеку все удается');
If K9>=4 then writeln('Хорошо чувствуют мир, имеют редкостный ум и память, но им свойственна грубость');
S1:=K1+K4+k7;
If S1=0 then writeln('Человек не ставит перед собой цели и задачи, надеясь на случай или других людей, его достаточно легко переубедить и заставить отказаться от своих планов');
If S1=1 then writeln('Слабая целеустремленность');
If S1=2 then writeln('Нормальная целеустремленность');
If S1=3 then writeln('Человек может менять свои цели совершенно непредсказуемо (экстренно, вдруг, внезапно)');
If S1=4 then writeln('Сильная целеустремленность');
If S1=5 then writeln('Очень сильная целеустремленность');
If S1>=6 then writeln('Человек ставит перед собой завышенные цели или несколько целей одновременно');
S2:=K2+K5+K8;
If S2=0 then writeln('Человек не семьянин');
If S2=1 then writeln('Человек помнит, что семью надо создать, но особых усилий в этом направлении не прилагает');
If S2=2 then writeln('Человек помнит, что семью надо создать, но особых усилий в этом направлении не прилагает');
If S2=3 then writeln('Человек мечется между сильнейшим желанием создать семью, во что бы то ни стало и нежеланием это делать вообще');
If S2=4 then writeln('Человек хочет создать семью и делает это, не затягивая');
If S2=5 then writeln('Очень сильное качество семьянина');
If S2>=6 then writeln('Качество семьянина перегружено, что означает ослабление этого качества');
S3:=K3+K6+K9;
If (S3=0) or (S3=1) then writeln('Стремятся все и всех вокруг себя изменить ');
If S3=2 then writeln('Легки на подъем, но уже могут остановить свой революционный порыв');
If S3=3 then writeln('Нестабильны в привычках; могут инициировать множество привычек и привязанностей, создавая стабильность, но также легко отказываются от них без видимой причины');
If (S3=4) or (S3=5) then writeln('Очень стабильны, окружают себя различными привязанностями и привычками, создавая стабильное окружение');
If S3>=6 then writeln('Вновь перегрузка качества, на этот раз уже стабильности');
S4:=K1+K2+K3;
If S4<=3 then writeln('Заниженная самооценка, часто не уверены в себе');
If S4=4 then writeln('Хорошая самооценка, стремятся выделиться из общей массы и прикладывают для этого много усилий');
If S4=5 then writeln('Очень сильная самооценка, но может быть завышенной');
If S4>=6 then writeln('Перегрузка качества самооценки приводит к тому, что человек, увлекаясь показом себя, забывает об истинных своих способностях и занимается больше внешней формой, чем внутренним содержанием');
S5:=K4+K5+K6;
If (S5=0) or (S3=1) then writeln('Не стремятся обеспечивать себя сами, могут позволить себе сесть на шею кому-либо');
If S5=2 then writeln('Помнят о том, что надо кормить семью и, боясь этого, ищут профессию по оплате');
If S5=3 then writeln('Занимаются материальным обеспечением импульсивно');
If (S5=4) or (S5=5) then writeln('Уделяют много времени и сил для материального обеспечения своей семьи, часто это становится единственной целью в жизни');
If S5>=6 then writeln('Перегрузка качества, начиная интенсивно трудиться, быстро изнашивают себя и приходят к полному отстранению от труда');
S6:=K7+K8+K9;
If S6<5 then writeln('Не зависимо от того, насколько эта линия сильна, на раскрытие таланта влияют многие цифры и линии таблицы');
If S6>=5 then writeln('Перегруз');
S7:=K3+K5+K7;
If (S7=0) or (S7=1) then writeln('Не отвлекатюся по "пустякам". Говорит о холодности');
If (S7=2) or (S7=3) then writeln('Нормальный темперамент. Могут иметь близость каждый день');
If S7=4 then writeln('Сильный темперамент, необходимо регулярно иметь близость с партнером');
If S7=5 then writeln('Пик темперамента, не могут обходиться без близости');
If S7>=6 then writeln('Перегрузка, начинают стремиться к разнообразию настолько активно, что теряют в этом смысл и меру');
S8:=K1+K5+K9;
If S8<=5 then writeln('Духовность человека постепенно усиливается');
If S8>=6 then writeln('Перегрузка качества, что чаще всего приводит к фанатизму и идолопоклонству');
end.

бамп годному треду

Еееей, паскаль

http://rgho.st/8ljg4qRzb

>>145463392

Да

БАМП ГОДНОМУ ТРЕДУ

бамп

>>145463848
Это вас в шараге питону учат?

бамппппп

>>145463981
Вроде того

бамп

бампусик

>>145463848
Почему в шараге не линукс?

>>145462549 (OP)
Ты охуел?
Мне теперь надо паскаль ставить, чтобы это скомпилировать самому?
Давай быстро переписывай на Python/C/C++/C#/Java

>>145462549 (OP)
Program1.pas(43,4): Операция '=' не применима к типам array [1..16] of integer и integer

>хуй

Блять, ещё больше ветвление не мог сделать? Сукаааааааа

>>145462549 (OP)
Твой тред, когда перепутал сосач с компилятором

ОП ХУЙ
Не компилируется.

x Y i

>>145463392
В шаражках на нем и учат