Программирование на Pascal / Delphi / Лабораторная работа1 / Lab_2

Program lab_2;
 var
 x1,x2,x3,x4:integer;
 z,y1,y2,y3,y4,f:real;
Begin
 f:=0;
 writeln('‚лзЁб«Ґ­ЁҐ §­ зҐ­Ёп дг­ЄжЁЁ');
 writeln('‚ўҐ¤ЁвҐ §­ зҐ­Ёп е');
 read(x1,x2,x3,x4);
 if 8*x1-x4>0 then
 begin
        y1:=1/sqr(8*x1-x4);
        writeln('y1=',y1);
 end
 else
 begin
     f:=1;
     writeln('дг­ЄжЁп y1 ­Ґ ®ЇаҐ¤Ґ«Ґ­ ');
 end;
 if 4*x1-x2>0 then
 begin
     y2:=(2*x1+5*x2)/ln(4*x1-x2);
     writeln('y2=',y2);
 end
 else
 begin
      f:=1;
      writeln('дг­ЄжЁп y2 ­Ґ ®ЇаҐ¤Ґ«Ґ­ ');
 end;
 if 5*x3-11>0 then
 begin
      y3:=ln(5*x3-11)+exp(12*x1+x4);
      writeln('y3=',y3);
 end
 else
 begin
      f:=1;
      writeln('дг­ЄжЁп y3 ­Ґ ®ЇаҐ¤Ґ«Ґ­ ');
 end;
 if 2*cos(x3)-sin(x4)>0 then
 begin
      y4:=(cos(x3)-5*sin(x4))/sqr(2*cos(x3)-sin(x4));
      writeln('y4=',y4);
 end
 else
 begin
     f:=1;
     writeln('дг­ЄжЁп y4 ­Ґ ®ЇаҐ¤Ґ«Ґ­ ');
 end;
 if (f=0) and ((y1+y2+y3+y4)>0) then
  begin
     z:=ln(y1+y2+y3+y4);
     writeln('z=',z);
  end
  else
  begin
     writeln('дг­ЄжЁп z ­Ґ ®ЇаҐ¤Ґ«Ґ­ ');
  end;
  readln;
  readln;
 end.