1. В Паскале:Введите X и Y- координаты точки на плоскости. Какой

Задачка 1

//Pascal
var x,y:real;
begin
  readln(x,y);
  if (xgt;0) and (ygt;0) then writeln('I четверть');
  if (xlt;0) and (ygt;0) then writeln('II четверть');
  if (xlt;0) and (ylt;0) then writeln('III четверть');
  if (xgt;0) and (ylt;0) then writeln('VI четверть');
end;
 
Задача 2

//Pascal
var 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.