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

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