Какой объект можно создать в окне документа MS Word, в котором расположен курсор?

ответ: 6 бит

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.

1+2+3-4+5-6=1

1+2+3+4/5+6-7=1

1+2+3-4+5-6+7/8=1