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

ОГРОМНОЕ СПАСИБО :3

Пожалуйста

var  n,r:integer;begin  Randomize;  n:=Random(100)+1;  Write('Дополните число ',n,' до 100: '); Read(r);  if r=100-n then Writeln('Верно!')  else Writeln('Вы ошиблись, ответ ',100-n)end.Примеры:Дополните число 88 до 100: 22Вы ошиблись, ответ 12Дополните число 71 до 100: 29Верно!