Какие значения могут быть у свойства вид линовки для объекта "тетрадь"?

Вклеточку, в линейку, в кружочек(да, такие есть)

program helloworld;

var run, day: integer;

begin

      run : = 10;

      day : = 1;

      while run< 20 do

      begin

              write('день: ');

              write(day);

              write('километраж: ');

              writeln(run);

             

              day: = day +1;

              run : = run+2;

      end;

 

      write('день: ');

      write(day);

      write('километраж: ');

      writeln(run);

 

end.

вообще признак делимости на 2 можно определить проще. если остаток от деления на 2=0 тогда число делится на 2 нацело иначе нет if (n mod 2)=0   then writeln('число   делится на 2 нацело' ) else   writeln('число не   делиться на 2 нацело' );

однако если по условию признак, такой то уж ничего не пделаешь 

program evennum;

uses crt;

var n: real;

begin

      clrscr;  

 

      write('введите число n: ');

      readln(n);  

 

      if ((n/2)< > (n div 2)) then writeln('число не делится на 2 нацело' )

                  else   writeln('число   делится на 2 нацело' );  

    readkey;      

 

end.