Решение к уроку 3

Program podbor_kornja;

label 1,2;

var
z,c,b,a,n:real;
f,g:text;


begin
assign(f,'input.txt');
reset(f);

        read (f, z);
     
     
close (f);

n:=0;
a:=z;
2: b:=(n+a)/2;
c:=b*b*b;

         If (abs(z-c)<0.000001) then
                   begin
                   assign (g,'output.txt');
rewrite (g);

write (g, 'Koren iz ',z,' =',b:7:6);

close (g);
                   
                   goto 1;
                  end
         Else
            begin
               If (z-c>0) then
                         begin
                             n:=b;
                         goto 2;
                     end
           else
                     begin
                 a:=b;
                 goto 2;
                end;
       end;
1: end.