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