asd / корзина / лекции по TP / Lecture_Pascal / graph / LAB1

    Program Lab;
      uses Crt;
      var x,y,u:real;
     begin
      ClrScr;
      Write('‚ўҐ¤ЁвҐ x (x<>2) :');
      Readln(x);
      if x<=-2 then begin
                   Write('‚ўҐ¤ЁвҐ г (y<>0) :');
                   Readln(y);
                   if y<>0 then begin
                                 u:=ln(sqrt(exp(x))+exp(abs(y)+ln(2)))/y;
                                 Writeln('u=',u:5:2)
                                end
                           else Writeln('ЏаЁ y=0 дг­ЄжЁп ­Ґ ®ЇаҐ¤Ґ«Ґ­ !')
                    end
               else if x<1.5 then begin
                                   u:=sin(x-2)+sqr(cos(x-1));
                                   Writeln('u=',u:5:2)
                                  end
                             else if x<>2 then begin
                                       u:=2*sin(sqr(x)-6*x)/(sqr(x)-2*x);
                                       Writeln('u=',u:5:2)
                                               end
                                          else
                               Writeln('ЏаЁ x=2 дг­ЄжЁп ­Ґ ®ЇаҐ¤Ґ«Ґ­ !');
     end.