var j,a,b,h: integer;
    x,y,z: real;
    f,f2:boolean;
const eps=0.0000000001;
begin
  write('Ââåäèòå a,b,h: ');
  readln(a,b,h);
  writeln('x  |  y  |  z');
  f:=false;
  f2:=false;
  while a<b do
    begin
      x:=a;
      if(sin(x)>=0) and ((x*x + sqrt(sin(x)))<>0) then
      begin
        y:=1/(x*x + sqrt(sin(x)));
        f:=true;
      end;

      if(x>0) and (sin(x)<>0) then
      begin
        z:=1/( exp(sqrt(x))) - cos(x)/sin(x);
        f2:=true;
      end;
      if(f=true) and (f2=true) then writeln(x,'|',y,'|',z);
      if(f=true) and (f2=false) then writeln(x,'|',y,'|_');
      if(f=false) and (f2=true) then writeln(x,'|_|',z);
      if(f=false) and (f2=false) then writeln(x,'|_|_');
        a:=a+h;
        f:=false;
        f2:=false;
    end;
end.

И еще 
var i,f,n,x :integer;
  b:boolean;
begin
  readln(n);
  f:=1;
  b:=true;
  i:=0;
  repeat
    readln (x) ;
    if x<f then
      b:=false;
      f:=x;
      i:=i+1
  until (b=false) or (i=n);
  if b then writeln ('vozrast');
  if (not b) then writeln ('net');
end.

    if x<f then
      b:=false;
      f:=x; { <--- вот эта строка что, ТОЖЕ к If относится? }
      i:=i+1

type
  tType1 = integer;
  tType2 = real;
  tType3 = record
    a,b,c,d: real;
    p: pointer;
  end;

var
  v1,v2: tType1;
  v3: tType2;

if a<b then begin
  Oper1;
  Oper2;
end
else begin
  Oper3;
  Oper4;
end;

if a<b then c:=a+b else c:=a-b;