Steb

program n_4;
var a:integer;
    s:string;
begin
Randomize;
a:= random(100);
writeln('a=',a);
writeln('Вы хотите его дополнить до ста?(Да/Нет)');
readln(s);
if (s = 'Да') or (s = 'да') then
 writeln('Я не знаю зачем Вам это. Теперь число А=100. Бесполезное действие..')
 else if (s = 'Нет') or (s = 'нет') then
   writeln('И то верно. Хотя зачем тогда запускать программу? Странный Вы человек..')
  else begin
   writeln('Если вы что-то хотите от этой программы, то советую перезапустить ее и ввести "Да".');
   writeln('Иначе зачем Вы ее вообще открыли?')
  end;
End.