Question

ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА!!!!!!!!ЗАРАНИЕ СПАСИБО

Answer 1

var

 a, b: Integer;

begin

 Randomize;

 a := Random (1000) + 1;

 while a <> b do begin

   Write ('Введи число!!!');

   ReadLn (b);

   if b > a then

     WriteLn ('Перебор!!!')

   else if b < a then

     WriteLn ('Маловато будет...')

 end;

 WriteLn ('Молодец! Угадал!');

 ReadLn;

end.

Answer 2

Program n_1;

var a, b: integer;

begin

 randomize;

 a:=random (1000) + 1;

 while a <> b do begin

   write ('Введи число!!!');

   readln (b);

   if b > a then writeln ('Перебор!!!')

   else if b < a then writeln ('Маловато будет...')

 end;

 writeln ('Молодец! Угадал!');

 readln();

end.