В двоичном кодировании для кодировки используют три значения. а) верно б) неверно​

var s,r: real;

begin

  read(r);

  s: =pi*sqr(r);

  writeln(s: 0: 4);

end.

Program is_ev_2d; var n: integer; begin   write('введите число: ');   readln(n);   if (n mod 2 = 0) and (n > 9) and (n < 100) then     writeln(n, ' чётное двузначное')   else      writeln(n, ' не чётное двузначное') end.