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

Program Sp2a;
uses crt, s2a;
var
	a,b,c, d:  array[byte] of char;
	an, bn, cn, dn: byte;
	

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