1. В Паскале:
Введите X и Y- координаты точки на плоскости. Какой координатной четверти принадлежит точка? Нужно вывести соответствующее сообщение.

2. В Паскале:
Дано целое число. Определить: Является ли оно четным; Оканчивается ли оно цифрой 7; Делится ли оно на 5.

Очень сильно благодарна Вам!

Задача №1//Pascalvar x,y:real;begin  readln(x,y);  if (x>0) and (y>0) then writeln('I четверть');  if (x<0) and (y>0) then writeln('II четверть');  if (x<0) and (y<0) then writeln('III четверть');  if (x>0) and (y<0) then writeln('VI четверть');end;  Задача №2//Pascalvar a:integer;begin  readln(a);  if a mod 2 =0 then writeln(' Четное')   else writeln(' Нечетное');  if a mod 10 =7 then writeln(' оканчивается на 7')   else writeln(' не оканчивается на 7 ');  if a mod 5 =0 then writeln(' делится на 5 ')   else writeln(' не делится на 5');  end.