Вычисление кусочно-непрерывной функции

Program Work_3;
{}
     Var K1, K2, R, y : real;
         dev  : text;
         name : string;
Begin
  Writeln('Введите:');
  Writeln('   con для вывода результатов на экран,');
  Writeln('   prn для вывода на принтер или ');
  Write('   спецификацию файла результатов => ');
  Readln(Name);
  Assign(dev,name);
  Rewrite(dev);
  Write('Введите значение K2=> ');
  Readln(K2);
  Writeln (dev,'Исходные данные:');
  Writeln(dev,'k2 =',k2:7:4);
  K1:=exp((1/3)*ln(14.3))/(sqrt(8.734)*(exp(2)-exp(-2)));
  R:= K1*K2;
  Writeln (dev,'Результаты расчёта:');
  Writeln(dev,'k1 =',k1:7:4,'R =':6,R:8:4);
  If R <= 1 then
    Begin
    y:= sqrt (abs (2*K1 - 7*K2));
    Write(dev,'1-ая формула');
    end
      else
        If R>=5 then
          Begin
          y:= sqrt (2*K1+ 7*K2);
          Write(dev,'3-ья формула');
          end
            else
              Begin
              y:= K1 +K2;
              Write(dev,'2-ая формула');
              end;
  Writeln(dev,'y =':10, y:9:5);
  Close(dev);
  Writeln('Расчёт закончен. Нажмите Enter');
  Readln; {Для задержки результатов на экране}
end.