Запиши доменное имя компьютера, зарегистрированного в домене первого уровня коммерческие организации, в домене второго уровня flowers и имеющего собственное имя www.

Если я ничего не путаю, должно получиться:
http://www.www.flowers.com

Пример на продукте - бананы

program v1;

var m,n,sum,t:integer;

st1:string[10];

 begin

   sum:=0; t:=0;

   writeln('Здравствуйте');

   writeln('Банан красного цвета стоит 2500, банан синего цвета стоит 3000, банан черного цвета стоит 3700');

   writeln('Сколько купите бананов '); readln(n);

  writeln('Введите цвет бананов '); readln(st1);

   if (st1='Красного') or (st1='красного') or (st1='Красный') or (st1='красный') then sum:=3000*n;

   if (st1='Синего') or (st1='синего') or (st1='Синий') or (st1='синий') or (st1='Синей') or (st1='синей')  then sum:=2500*n;

   if (st1='Черного') or (st1='черного') or (st1='Чёрного') or (st1='чёрного') or (st1='Черный') or (st1='черный') or (st1='чёрный') or (st1='Чёрный')  then sum:=3700*n;

   writeln('Сумма покупки ', sum);

   writeln('Введите сумму'); readln(m);

   t:=m-sum;

   writeln('Возьмите сдачу ',t);

   writeln('Всего доброго, приходите еще');

 end.

Правильно пишется шестнадцатеричный. 
При переводе 2⇒16 число справа налево делится на группы из 4 цифр каждая, затем каждая группа заменяется на шестнадцатеричную цифру:
1000111111₂ = 10 0011 1111₂ = 23F₁₆
При переводе 10⇒12 число надо делить на 12 и выписать остатки от деления в обратном порядке. Остаток 10 заменить на A, остаток 11 - на B
923₁₀ = 64B₁₂
Два последних примера лучше делать за 2 действия: сначала перевести в 10-ю систему счисления, а потом - в 5 (или 12)
79₁₆ = 121₁₀ = 441₅
1050₈ = 552₁₀ = 3A0₁₂