На языке паскаль составить программу,проверяющую,лежит ли данная точка с координатами (x,y) в первой четверти координатной плоскости.программа должна выводить на экран результат в виде: точка с координатами (x,y) лежит в первой четверти координатной плоскости или точка с координатами (x,y) не лежит в первой четверти координатной плоскости.

Program points;
uses crt;
var x, y:real;
begin
 write('Введите х: ');
 readln(x);
 write('Введите y: ');
 readln(y);
if (x > 0) and (y > 0) then
 writeln('Точка с координатами (' , x , ',' , y , ') лежит в первой четверти координатной плоскости')
else
 writeln('Точка с координатами (' , x , ',' , y , ') не лежит в первой четверти координатной плоскости');
readln
end.