Лабораторные работы / Laba4 / Sp2b

Program SP2b;
uses crt, s2b;
var
a,b,c, d: array[byte] of boolean;

begin
write ('Њ ббЁў   '); readarr('a.txt', a); writearr(a); writeln;
write ('Њ ббЁў b '); readarr('b.txt', b); writearr(b); writeln;
write ('Њ ббЁў c '); readarr('c.txt', c); writearr(c); writeln;
write ('Њ ббЁў d=a+b-c '); createD(a,b,c,d) ; writearr(d); writeln;
readln;
end.