Ответ: 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

Объяснение: