Сделайте так чтобы работал Поажлуйста доброе дело пожалуйста

+ 0 -

MACRO1337

04 июля 2014 г., 15:01:15 (9 лет назад)

Не лишайте удовольствия получить дополнительные баллы)))
Var st: String;
begin
ReadLn(st);
writeln('Добро пожаловать в мою программу по сочетанию цветов!');
if st='Белый' then writeln('сочетается со всем. Наилучшее сочетание с синим, красным и черным.');
if st='Бежевый' then writeln('с голубым, коричневым, изумрудным, черным, красным, белым. ');
if st='Серый' then writeln('базовый цвет, хорошо сочетается с капризными цветами: фуксия, красный, фиолетовый, розовый, синий. ');
if st='Розовый' then writeln('с коричневым, белым, цветом зеленой мяты, оливковым, серым, бирюзовым, нежно - голубым. ');
if st='Фуксия' then writeln('с серым, желто-коричневым, зеленым лаймом, зеленой мятой, коричневый. ');
if st='Красный' then writeln('подходит к желтым, белым, бурым, зеленым, синим и черным. ');
if st='Томатно – красный' then writeln(' голубой, зеленая мята, песчаный, сливочно – белый, серый. ');
if st='Вишнево-красный' then writeln('лазурный, серый, светло-оранжевый, песчаный, бледно-желтый, бежевый. ');
if st='Малиново-красный' then writeln('белый, черный, цвет дамасской розы. ');
if st='Коричневый' then writeln('ярко-голубой, кремовый, розовый, палевый, зеленый, бежевый. ');
if st='Светло-коричневый' then writeln('бледно-желтый, кремово-белый, синий, зеленый, пурпурный, красный. ');
if st='Темно-коричневый' then writeln('лимонно-желтый, голубой, зеленая мята, пурпурно-розовый, зеленый лайм. ');
if st='Рыжевато-коричневый' then writeln('розовый, темно-коричневый, синий, зеленый, пурпурный. ');
if st='Оранжевый' then writeln('голубой, синий, лиловый, фиолетовый, белый, черный');
if st='Светло – оранжевый' then writeln(' серый, коричневый, оливковый. ') ;
if st='Темно–оранжевый' then writeln(' бледно – желтый, оливковый, коричневый, вишнёвый. ');
if st='Желтый' then writeln('синий, лиловый, светло-голубой, фиолетовый, серый, черный. ');
if st='Лимонно-желтый' then writeln('вишнево-красный, коричневый, синий, серый. ');
if st='Бледно-желтый' then writeln('фуксия, серый, коричневый, оттенки красного, желтовато-коричневый, синий, пурпурный. ');
if st='Золотисто-желтый' then writeln('серый, коричневый, лазурный, красный, черный. ');
if st='Светло – зеленый' then writeln('золотисто-коричневый, коричневый, розовый, темно-оранжевый, темно-синий, серый. ');
if st='Оливковый' then writeln('апельсиновый, светло-коричневый, коричневый. ');
if st='Зеленый' then writeln('золотисто-коричневый, оранжевый, салатный, желтый, коричневый, серый, кремовый, черный, сливочно-белый. ');
if st='Салатный цвет' then writeln('коричневый, желтовато-коричневый, палевый, серый, темно-синий, красный, серый. ');
if st='Бирюзовый' then writeln('фуксия, вишнево-красный, желтый, коричневый, кремовый, темно-фиолетовый. ');
if st='Голубой' then writeln('красный, серый, коричневый, оранжевый, розовый, белый, желтый. ');
if st='Темно-синий' then writeln('светло-лиловый, голубой, желтовато-зеленый, коричневый, серый, бледно-желтый, оранжевый, зеленый, красный, белый. ');
if st='Лиловый' then writeln('оранжевый, розовый, темно-фиолетовый, оливковый, серый, желтый, белый. ');
if st='Темно-фиолетовый' then writeln('золотисто-коричневый, бледно-желтый, серый, бирюзовый, зеленая мята, светло-оранжевый. ');
if st='Черный' then writeln('Черный универсален, элегантен, смотрится во всех очетаниях, лучше всего с оранжевым, розовым, салатным, белым, красным, сиреневатым или желтым.');
end.

+ 0 -

Golyshevaania

04 июля 2014 г., 15:41:26 (9 лет назад)

Комментарий удален