Держи '................
...............
Var x,y: real;
var a,b,c,d:integer;
begin
readln(x,y);
if (y<1) then
write ('1')
else write ('0');
if (y<-x) then
write ('1')
else write ('0');
if sqr(x)+sqr(y)<1 then
write ('1')
else write ('0');
if sqr(x-1)+sqr(y)<1 then
write ('1')
else write ('0');
<span>end.</span>
1) e
2) b
3) a
4) d
5) c
6) --
7) a
8) --
9) --
10) a
//PascalABC.NET 3.1 сборка 1239
uses System;
begin
var m := ReadInteger('Введите номер месяца =>');
var d := new DateTime(DateTime.Now.Year, m, 1);
var k := 0;
repeat
if d.Day mod 2 = 0 then k += 1;
d := d.AddDays(1);
until d.Month <> m;
writeln(k);
end.