program kursovaya_rabota;

var
  a, b : longint;

begin
  b := 100111111;
  write ('Умножьте два двоичных числа: 01101 и 001011 - и введите ответ: ');
  readln (a);
  if b = a then
    writeln ('Ответ верен')
  else
    writeln ('Ответ неверен');
end.