написать программу хакер компьютер загадывает число от 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.