Program TestNumber;

Uses
    System.SysUtils;

Var
    IsCorrect : Boolean;
    Sum, Num1, Num2 : Integer;

Begin
    Writeln('Данная сука задача выводит сумму двух чисел');

    Repeat
        IsCorrect := True;
        Writeln('Введите сука число 1');
        Try
            Readln(Num1);
        Except
            IsCorrect := False;
            Writeln('Пиздец ошибка, пиши нормальное число от -2ккк до 2ккк');
        End;

    Until IsCorrect;

    Repeat
        IsCorrect := True;
        Writeln('Введите сука число 2');
        Try
            Readln(Num2);
        Except
            IsCorrect := False;
            Writeln('Пиздец ошибка, пиши нормальное число от -2ккк до 2ккк');
        End;
    Until IsCorrect;

    Sum := Num1 + Num2;

    Writeln('Сумма ', Sum, ' пон');

    Readln;

End.