1.19.1 Delphi

Program Lab1191;

Uses
    System.SysUtils;

Var
    X, Y : Double;
    IsTrue, IsCorrect : Boolean;

Begin
    Writeln('Это программа считает, принадлежитл ли точка множеству D');

    Repeat
        IsCorrect := True;
        Writeln('Введите x от -1.00 до 1.00');
        Try
            Readln(X);
        Except
            Writeln('Неверный тип данных');
            IsCorrect := False;
        End;
    Until IsCorrect;

    Repeat
        IsCorrect := True;
        Writeln('Введите y от -1.00 до 1.00');
        Try
            Readln(Y);
        Except
            IsCorrect := False;
        End;
    Until IsCorrect;

    If((((Y = -1) or (Y = 0)) And ((X = 1) Or (X = -1))) Or ((Y = 1) And (X = 0))) Then
    Begin
        IsTrue := true;
    End
    Else
    Begin
        If((Y < 0) And (Y > -1)) Then
        Begin
            IF ((X > -1) And (X < 1)) Then
            Begin
                IsTrue := true;
            End;
                End
        Else
        Begin
            IF((Abs(X) + Abs(Y) < 1) Or (Abs(X) + Abs(Y) = 1)) Then
            Begin
                IsTrue := true;
            End;

        End;
    End;

    IF(IsTrue) Then
    Begin
        Writeln('Точка принадлежит области D');
    End
    Else
    Begin
        Writeln('Точка не принадлежит области D');
    End;
    Readln;
End.