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

Var a, b:integer;

begin

a:=random (99) + 1;

write ('Дополните до 100 число ', a,': ') ;

readln (b) ;

if b=100-a then writeln ('Верно!')

else writeln ('Вы ошиблись. 100-', a,'=',100-a) ;

end.

Пример:

Дополните до 100 число 75: 20

Вы ошиблись. 100-75=25