задачи по Delphi7

[Болат]

1)даны действительные числа x,y.Меньшее из этих двух чисел заменить их полусуммой,а больше их удвоенным произведением.
2)Оставить в словах только последние вхождения каждой буквы.
3)Перенести в начало последовательности слова-полиндромы(перевертыши),сохраняя исходный порядок следования слов.
4)Напечатать те слова последовательности в которых хотя бы на одной нечетной позиции находиться буква "A".
5)Напечатать те из двузначных чисел которые делятся на 5,но не делятся на 2.
6)С помощью оператора repeat напишите программу суммы чисел в диапазоне от 100 до 200 включительно,которые нацело делятся на 8.
7)Определить суммарный объем в литрах 12 вложенных друг на друга шаров со стенками 5мм.Внутренний диаметр внутреннего шара равен 10см.Считать,что шары вкладываются друг на друга без зазоров.
8)Даны 2 множества А и В.Постройте из них следующие множество (a-b)+(b-a)+a*b.
9)Дан текст из цифр и строчных латинских букв,за которыми следует точка.Определить,каких букв гласных(a,e,i,o,u) или согласные больше в этом тексте.

[rombler69]

Сообщение от Болат

1)даны действительные числа x,y.Меньшее из этих двух чисел заменить их полусуммой,а больше их удвоенным произведением.

   x1:=0;
   y1:=0;
   x:=StrToInt(ed1.Text);
   y:=StrToInt(ed2.Text);
   if x<y
    then begin
        x1:=(x+y) div 2;
        y1:=2*x*y;
        lbl1.Caption:='x = '+IntToStr(x1);
        lbl2.Caption:='y = '+IntToStr(y1);

      end
    else
      begin
        if x>y
        then begin
         x1:=2*x*y;
         y1:=(x+y) div 2;
         lbl1.Caption:='x = '+IntToStr(x1);
         lbl2.Caption:='y = '+IntToStr(y1);
       end else
       if x=y then
        begin
        lbl1.Caption:='x = y';
        lbl2.Caption:='y = x';
        end;
       end;