Написать программу, в которой пользователю предлагаетсядополнить до 100 некоторое целое число а (а - случайное число, меньшее100).
var a,b:integer; Begin randomize; a:=random(99); writeln('Дополните ', a); read(b); if (a+b=100) then writeln('') else writeln(':-('); end.
