напишите программу в которой пользователю предлагается дополнить до 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