Лабораторные работы / 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.