Написать программу-игру угадай число - Pascal

Формулировка задачи:

1. Составить программу вывчисляющую сумму всех элементов одномерного массива из 20 чисел, которые лежат в интервале от 10 до 20. Массив заполнять случайными числами. 2. Написать программу-игру угадай число, которая случайно выбирает число от 1 до 10. Требуется угадать это число. Использовать цикл Repeat и While. После каждого ответа выводить угадано ли число или нет.

Решение задачи: «Написать программу-игру угадай число»

Листинг программы

program g4;
var i,a,b:integer;
begin
i:=0;
 a:=random(10);
 while (a<>b) and (i<5) do
   begin
   write('Введите число');
  readln(b);
  if b>a then
  writeln('Много')
  else if b<a then
    writeln ('Мало')
    else
  writeln('Вы угадали') ;    
   i:=i+1; 
  end;
           end.

Объяснение кода листинга программы

Создается программа g4.
Объявляются переменные i, a и b типа integer (целое число).
Устанавливается начальное значение переменной i равным 0.
Генерируется случайное число a в диапазоне от 0 до 9 с помощью функции random(10).
Запускается цикл while, который выполняется до тех пор, пока a и b не станут равными или пока i меньше 5.
Внутри цикла выводится сообщение Введите число с помощью функции write('Введите число').
Считывается введенное пользователем значение с помощью функции readln(b).
Проверяется условие b>a. Если оно истинно, выводится сообщение Много.
Если условие b<a истинно, выводится сообщение Мало.
Если оба условия ложны, выводится сообщение Вы угадали.
Увеличивается значение переменной i на 1.
Цикл while завершается.
Программа завершается.