Program SqrtFromDigits;

var
  n : real;
  s1 : string;
begin

  write('Введите слово Start для вычисления квадратных корней: ');
  readln(s1);
  s1:=s1.ToLower;
  if not(s1='start') then begin
    writeln('Вы ввели некорректное слово, попробуйте заного и введите "Start"(В любом регистре)!!!');
  end else begin
    n:=900;
    while n>=0 do begin
    writeln('Корень из числа ',n,' равен: ',sqrt(n));
    n:= n-7;
    end;
  end;

end.