1Даны три целых числа. Вывести сообщение является ли среди чисел хотя бы одна пара совпадающей или не является.2Вычислить для любого х значение функци

1)Даны три целых числа. Вывести сообщение является ли среди чисел хотя бы одна пара совпадающей или не является.

2)Вычислить для любого х значение функции Y =3х/(x-6), при некотором значении х выдать сообщение ' функция не существует '

  • Program shm40_1;
    uses crt;
    var
      a,b,c:real;
    begin
      writeln('*** alphaues is thinking... ***');
      writeln('***          OK             ***');
      write('Введите A '); readln(a);
      write('Введите B '); readln(b);
      write('Введите C '); readln(c);
      if (a=b) or (b=c) or (a=c) then
          writeln('Среди введённых чисел есть совпадения')
        else
          writeln('Среди введённых чисел совпадений НЕТ');
    end.

    Program shm40_2;
    uses crt;
    var
      x:real;
    begin
      writeln('*** alphaues is thinking... ***');
      writeln('***          OK             ***');
      write('Введите X '); readln(x);
      if x=6 then
          writeln('При x=',x,' функция не существует!')
        else
          writeln('Y=',3*x/(x-6));
    end.