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

Program sto;Vara,b:integer;BeginReadln(a);b:= 100 - a; //Вычисляем остаток которы нужно прибавить к числу, и записываем его в переменную b;Writeln('Если к вашему числу прибавить: ',b,', то в результате будет 100'); //Выводим ответ пользователю;End.