Определите значения в столбце F, если известно, что F=(A или B) и (неB и A)

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) ) 

var

x: real;

begin

readln(x);

writeln(round(x));

end.

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.