var x,y:integer; begin readln (x,y); if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти'); if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти'); if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти'); if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти'); if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс'); readln; end.
Type date = record day: 1..31; month: 1..12; year: integer ; end;var a: date := (day: 8; month: 7; year: 2012); b: date := (day: 6; month: 7; year: 2012); c:integer; procedure OutDate(d: date);begin with d do writeln(day, '.', month, '.', year);end;begin if a.year > b.year then c:=1 else c:=-1 ; if a.year = b.year then if a.month > b.month then c:=1 else c:=-1; if a.year = b.year then if a.month = b.month then if a.day > b.day then c:=1 else c:=-1; if a.year = b.year then if a.month = b.month then if a.day = b.day then c:=0; OutDate(a); OutDate(b); writeln('otwet:', c);end.
var x,y:integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти');
if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти');
if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти');
if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else
if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс');
readln;
end.
procedure OutDate(d: date);begin with d do writeln(day, '.', month, '.', year);end;begin if a.year > b.year then c:=1 else c:=-1 ; if a.year = b.year then if a.month > b.month then c:=1 else c:=-1; if a.year = b.year then if a.month = b.month then if a.day > b.day then c:=1 else c:=-1; if a.year = b.year then if a.month = b.month then if a.day = b.day then c:=0; OutDate(a); OutDate(b); writeln('otwet:', c);end.