var a,b:integer;
begin
readln (a,b);
if a*b>200 then writeln ('Превосходит')
else
writeln ('Не превосходит');
end.
Поделитесь своими знаниями, ответьте на вопрос:
Дано 2 целых числа a, b из числового промежутка [1, 20]. Определить произведение чисел превосходит 200 или нет.
var a,b:integer;
begin
readln (a,b);
if a*b>200 then writeln ('Превосходит')
else
writeln ('Не превосходит');
end.