Написать программу хакер компьютер загадывает число от 0 до 99 пользователь разгадывает его вводя числа с клавиатуры

program hacker; var a,b:integer; begin a:=random(100); repeat begin read(b); if a<>b then writeln('Вы не угадали число') else writeln('Поздравляю! Вы угадали число'); end; until b=a; end.