Упражнение 10

Создание Windows-приложения для вычисления случайного числа и сравнения его с числом, введенным пользователем. По результатам сравнения выдается сообщения: "Вы угадали", "Число меньше искомого", "Число больше искомого", "Число вне диапазона"

Код:

var

Form1: TForm1; m : integer; {Случайное число}

...

procedure TForm1.Button1Click(Sender: TObject);

Var n : integer; s : string;

begin

n := StrToInt(Edit1.Text);

If (n < 0) Or (n > 10) Then s := 'Число вне диапазона'

Else if n > m Then s := 'Число больше искомого'

Else If n < m Then s := 'Число меньше искомогоl'

Else If n = m Then s := 'Вы угадали';

Label2.Caption := s;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Randomize; m := Random (10);

end;