Вариант_1

program var1;

uses
  SysUtils, Math;

procedure Input (var parametr: real);
begin
    {$I-} readln(parametr); {$I+}
    if (IoResult<>0) or (parametr<(-3)) or (parametr>6) then begin
      write('           Вы ввели неверные данные, попробуйте снова: ');
      Input (parametr);
    end;
end;

procedure Calculate (var a,b,c: real);
    var x,y:real;
begin
    x:=a;
    writeln('                          Результаты вычислений            ');
    writeln('                     -------------------------------       ');
    writeln('                     |      X       |     Y        |       ');
    writeln('                     -------------------------------       ');
    while x<=b do begin  // цикл с предусловием
      if x<(-2) then y:=-x-2;
      if (x>=(-2)) and (x<(-1)) then y:=sqrt(1-Power((x+1),2));
      if (x>=(-1)) and (x<1) then y:=1;
      if (x>=1) and (x<2) then y:=((-2)*x)+3;
      if x>=2 then begin y:=-1; end;
      writeln('                         ', x:1:3,'             ',y:1:3,  '   ');
      x:=x+c;
      end;
    writeln('                      -------------------------------      ');
end;

var
xi,xk,dx:real;
status:integer;
quit:boolean;

begin
    writeln('          ////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\       ');
    writeln('          /               Данная программа               \       ');
    writeln('          /   по значениям аргумента Xi, изменяющегося   \       ');
    writeln('          /     в заданных пределах, с заданным шагом,   \       ');
    writeln('          /         вычисляет значения функции Yi,       \       ');
    writeln('          /             заданной в виде графика.         \       ');
    writeln('          /             Автор: Тихонов Евгений.          \       ');
    writeln('          \\\\\\\\\\\\\\\\\\\\\\\\////////////////////////       ');
    repeat  //цикл с постусловием
    writeln;
    write('           Введите начальное значение аргумента Xi: ');
    Input(xi);
    write('           Введите конечное значение аргумента Xk: ');
    Input(xk);
    write('           Введите шаг изменения dX: ');
    Input(dx);
    writeln('           Введенные данные: Xi = ', xi:1:3, ', Xk = ', xk:1:3, ', dX = ', dx:1:3);
    writeln;
    Calculate(xi,xk,dX);
    write('Введите "1" для выхода или любую другую цифру для перезапуска программы: ');
    readln(status);
    quit:=status=1;
    until quit;
end.