Информатика 50б преобразовать алгоритм в программу на языке паскаль алг нач цел х,y ввод х,у если (х> 0) то (у> 0) то вывод " точка принадлежит 1-ой четверти кп" иначе вывод "точка не принадлежит 1-ой четверти кп" все кон

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

program Задача;
begin
  var x,y:integer;
  Read(x,y);
  if (x>0) and (y>0) then
    Writeln('Точка принадлежит 1-ой четверти КП')
  else
    Writeln('Точка не принадлежит 1-ой четверти КП')
end.