Как будет выглядеть эта программа в паскале - Turbo Pascal

Формулировка задачи:

if( x*x + y*y < 1 ) return false;
if( x*x + y*y > 4 ) return false;
if( x >= 0 && y < -x ) return false;
if( x < 0 && y < x ) return false;
return true;

Решение задачи: «Как будет выглядеть эта программа в паскале»

Листинг программы

function f(x, y: integer): boolean;
begin
  f := false;
  if( x * x + y * y < 1 ) then exit;
  if( x * x + y * y > 4 ) then exit;
  if( x >= 0) and (y < -x ) then exit;
  if( x < 0) and (y < x ) then exit;
  f := true; 
end;

Объяснение кода листинга программы

Создается функция f с двумя аргументами типа integer.
Переменная f инициализируется значением false.
Выполняется проверка условия: xx + yy < 1. Если это условие истинно, то функция завершается с помощью команды exit.
Выполняется следующая проверка условия: xx + yy > 4. Если это условие истинно, то функция завершается с помощью команды exit.
Выполняется следующая проверка условия: x >= 0 и y < -x. Если это условие истинно, то функция завершается с помощью команды exit.
Выполняется последняя проверка условия: x < 0 и y < x. Если это условие истинно, то функция завершается с помощью команды exit.
Если ни одно из условий не выполнилось, то переменная f принимает значение true.
Функция возвращает значение boolean.