var
a, b, c: integer;

begin
Randomize;
a:=Random(100)+1;
b:=Random(100)+1;
WriteLn('Сколько будет ',a,'-',b,'?');
WriteLn('Введите ответ и нажмите <Enter>');
Write('-> ');
ReadLn©;
if c=a-b then WriteLn('Правильно!') else WriteLn('Вы ошиблись. ',a,'-',b,'=',a-b)
end.