Страницы 177-181 параграф 4 4 вопрос / задание 14, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение

Напишите программу, в которой пользователю предлагается дополнить до 100 некоторое целое число а (а — случайное число, меньшее 100). Ответ пользователя проверяется и комментируется.

program Z_14_4;

var

  x,d: integer;

begin

  randomize;

  x:=random(100);

  write('Дополни ',x,' до 100 >');

  readln(d);

  if (x+d=100) then writeln('Молодец!')

  else writeln('Не правильно, учи устный счет!')

end.