Program huy;

Uses
    System.SysUtils;

Var
    IsCorrect : Boolean;
    Num : Integer;

Begin
    Writeln('Эта программа выводит на экран число');

    Repeat
        Writeln('Введите число:');
        IsCorrect := True;
        Try
            Readln(Num);
        Except
            IsCorrect := False;
        End;
        If(Not IsCorrect) Or (Num < 1) Then
        Begin
            IsCorrect := False;
            Writeln('Ошибка');
        End;
    Until IsCorrect;

    Writeln('Число: ', Num);

    Readln;
End.