Подскажите пожалуйста как работает программа!

Подскажите пожалуйста как работает программа!

Program;
Uses crt;
var X,Y:real;
begin
writeln ('Вводите координаты точки');
write ('X='); Readln (X);
write ('Y='); Readln (Y);
if (abs(x)<=2) and (abs(y)<=1) and (sqr(x)+sqr(y)>=1) then
writeln ('нет') else writeln ('да');
end.

Надо преподу объяснить как работает эта программа на Паскале