Question

Дано 2 целых числа a,b из числового промежутка [1,20]. Определить произведение чисел превосходит 200 или нет.

Answer 1

Ответ:

var a,b:integer;

begin

readln (a,b);

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

else

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

end.