program laba1_2;
uses
  System.SysUtils;
var
   x,i:integer;
   y1,y:real;
   isCorrect:Boolean;
   const eps = 0.001;
begin
   isCorrect := false;
   repeat
      writeln('Введите натуральное число ');
      try
         readln(x);
         isCorrect := true
      except
         writeln('Введены некоректные данные! Повторите!');
      end;
   until isCorrect;
   y1 := 1;
   while abs(y - y1) > eps do
   begin
         y1 := y;
         y := (y1 + x/y1)/2;
   end;
   writeln('Корень квардратный из ' , x ,'=' ,y:3:2);
   readln;
   end.