Вот можете посматреть что в этих двух программа не правельно расставлено ? И как сделать оформление правельным
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.
И вот вторая программка
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.