Решение задач по теме "Логические выражения в Pascal"

Даны числа x,y. Проверить истинность высказывания: "Точка с координатами (x,y) лежит во второй координатной четверти".

program two;
var
   x,y:integer;
   Rezultat:boolean;
begin
   write('x = ');
   readln(x);
   write('y = ');
   readln(y);
   Rezultat:=(x<0) and (y>0);
   Write(Rezultat);
end.

Назад