Напишите программу, в которой пользователю предлагается дополнить до 100 некоторое число a (а - случайное число, меньше

// Программа на языке Паскаль.

var    t, x : integer;    // объявляем переменные вещественного типа.   label l;             // объявляем метку.begin   t := random(0,99);  // задаем случайное число от 0 до 99.   l: writeln (\'Дополните до 100 число: \', t,\', введите необходимое число:\');    readln(x);               // считываем значение, введенное с клавиатуры.      if (x + t) < 100 then   // проверяем сумму случайного числа и введенного с клавиатуры.        begin          writeln(\' Введено слишком маленькое число, попробуйте еще раз!\');           goto l;         // переход на метку.        end;       if (x + t) > 100 then // проверяем сумму случайного числа и введенного с клавиатуры.         begin            writeln(\' Введено слишком большое число, попробуйте еще раз!\');             goto l;              // переход на метку.         end;        if (x + t) = 100 then        // проверяем сумму случайного числа и введенного с клавиатуры.           writeln(\' Поздравляем! Ваш вариант правильный\');    // вывод строки на экран.end.