Выведи на экран большее из двух данных чисел.
Запиши программу на языке Паскаль, выведи ответ на экран, если 1,00355 и 2,8629.

На экране

vvedi dva chisla
1,00355 2,8629

Procedure TForm1.Button1Click(Sender: TObject);
var
  i1,i2,i3 : Integer;
  kk : Integer;
  Chislo : Integer;
begin
  Memo1.Clear;
  kk := 0;
  for i1 := 1 to 9 do
    for i2 := 0 to 9 do
      for i3 := 0 to 9 do
        if ( (i1<>i2) and (i1<>i3) and (i2<>i3) ) then
          if ( Frac((i1+i2+i3)/7)=0 ) then
          begin
            Chislo := i1*100 + i2*10 + i3;
            if ( Frac(Chislo/7)=0 ) then
            begin
               Memo1.Lines.Append(inttostr(Chislo));
               inc(kk);
            end;
          end;
end;

Периметр – это сумма длин всех сторон. Периметр помещения можно узнать, сложив длину всех стен. 
Пример:
Вычислим периметр комнаты размером 5х6 м. Сложим длину всех стен в комнате – и получим 22 м.
Сколько всего полотнищ нужно для оклеивания помещения?
Для этого нужно разделить периметр на ширину рулонов. Это позволит узнать, какое количество обойных полос нужно на помещение. 
Пример:
Периметр нашей комнаты – 22 м, а ширина обоев составляет 1,06 м. Разделим 22 на 1,06 – и получим 20,75. Округляем результат в большую сторону – и получаем 21 полотнище.
На сколько полотнищ хватит одного рулона?
Чтобы посчитать число полных полотнищ в одном рулоне разделим длину рулона на высоту потолка.
Пример:
Длина обойного рулона обычно составляет 10 м. Высота нашей комнаты – 2,75 м. Мастера рекомендуют прибавлять к высоте потолка дополнительный запас в 10 см. для удобства поклейки. Таким образом, значение высоты нашего потолка составит 2,85 м. Если разделить длину рулона (10 м) на это число (2,85 м), то мы получим 3 полных полосы из одного рулона обоев.
Сколько рулонов обоев понадобится? 
Чтобы узнать, сколько рулонов потребуется для одного помещения надо разделить число всех полотнищ в этом помещении на полное число полотнищ, которые получаются из одного рулона.
Пример:
В нашем случае расчет будет таким: 21 (число полотнищ) делим на 3 (полотнища из одного рулона) и получаем 7 рулонов обоев шириной – 1,06 м, длиной – 10 м.

Если вы клеите обои с крупным рисунком, то вам потребуется следить за аккуратной подгонкой полос для ровного совпадения узора. Это актуально для обоев с большими геометрическими рисунками, изображениями растений и других крупных форм. Здесь нужно учитывать раппорт - расстояние, через которое повторяется одинаковый рисунок. Вам необходимо сосчитать, сколько раппортов приходится на одну длину полотнища. Чем крупнее раппорт, тем большее количество рулонов вам потребуется для оклеивания просторных помещений. Размер раппорта указывается на этикетке обоев. На этикетке вы найдете один из указанных