Program RotEbal;

Uses
    System.SysUtils, Math;

Var
    X, Y : Real;
    IsCorrect : Boolean;

Begin
    Writeln('Данная программа проверяет входимость точки в сука плоскость');

    Repeat
        IsCorrect := True;
        Writeln('Введите X: ');
        Try
            Readln(X);
        Except
            IsCorrect := False;
            Writeln('Ты ебло утинное');
        End;
    Until IsCorrect;

    Repeat
        IsCorrect := True;
        Writeln('Введите Y: ');
        Try
            Readln(Y);
        Except
            IsCorrect := False;
            Writeln('Ты ебло утинное номер 2');
        End;
    Until IsCorrect;

    If (Abs(X) + Abs(Y) < 1) Then
        Writeln('Данная точка входит в очко ПИшника')
    Else
        Writeln('А нихуя не входит');



    Readln;
End.