Всем Привет! Пожалуйста, помогите с информатикой

var

i,n: integer;

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

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.

+116=1110100; -116=0001011

паскаль;

uses crt;

var a,b: integer;

begin

clrscr;

readln(a,b);

writeln(abs(a-b));

readln;

end.