Ответ:

var a,b:integer;

begin

readln (a,b);

if a*b>200 then writeln ('Превосходит')

else

  writeln ('Не превосходит');

end.