//1.    Даны целые числа X и Y. Вычислите число z=x+y, если x<=y и z=1-x+y в противном случае.
//2.    Даны два целых числа. Выведите первое из них, если оно больше второго и оба числа, если это не так.
//3.    Даны два дробных числа. Меньшее из них замените полусуммой этих чисел, а большее произведением

program ht;

var
  a : BYTE;

begin
  write('Введите номер задания (1-3) - ');
  readln(a);
  writeln('ЗАДАНИЕ ', a);

  if a = 1 then
    begin
  //Задание 1
      var
        X,Y,Z : INTEGER;

      write('Введите значение X: ');
      readln(X);
      write('Введите значение Y: ');
      readln(Y);

      if X<=Y then
        Z := X+Y
      else
        Z := 1-X+Y;

      writeln('Ваш ответ: ', Z);
    end

  else if a = 2 then
    begin
  //Задание 2
      var
        FIRST, SECOND : INTEGER;

      writeln('Введите значения двух чисел');
      readln(FIRST, SECOND);

      if FIRST > SECOND then
        writeln('Выводим первое число... ', FIRST)
      else
        writeln('Выводим оба числа... ', FIRST, ' и ', SECOND);

    end

  else if a = 3 then
    begin
  //Задание 3
      var
        C, D : REAL;

      write('Введите ДРОБНОЕ значение C: ');
      readln(C);
      write('Введите ДРОБНОЕ значение D: ');
      readln(D);

      if C < D then
        begin
          C := (C+D)/2;
          D := C*D
        end
      else
        begin
          D := (C+D)/2;
          C := C*D
        end;

      writeln('Теперь C = ', C, ', а D = ', D);
    end;
end.