begin
var (x, y) := readinteger2;
if (x > 0) and (y > 0) then
write('TRUE')
else
write('FALSE')
end.
Объяснение:
begin // Начало программы
var (x, y) := readinteger2; // Вводим координаты x, y с клавиатуры
if (x > 0) and (y > 0) then // Если (x > 0 И y > 0), тогда
write('TRUE') // Выводим TRUE
else // Иначе
write('FALSE') // Выводим FALSE
end. // Конец программы
begin
var (x, y) := readinteger2;
if (x > 0) and (y > 0) then
write('TRUE')
else
write('FALSE')
end.
Объяснение:
begin // Начало программы
var (x, y) := readinteger2; // Вводим координаты x, y с клавиатуры
if (x > 0) and (y > 0) then // Если (x > 0 И y > 0), тогда
write('TRUE') // Выводим TRUE
else // Иначе
write('FALSE') // Выводим FALSE
end. // Конец программы