50 Баллов. Нужна помощь в программе(паскаль).

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018Внимание! Если программа не работает, обновите версию!begin  var (x,y):=ReadReal2('Введите координаты точки:');  Writeln((y>3-x) and (y>0) and (x>0) and (x*x+y*y<36)) end.ПримерВведите координаты точки: 5 2.1True