инфа / проги инфа вар 1,2(родионова) / задача на паскале 253

const n=10;
type mas=array[1..n] of integer;
var
c,p,x:mas;
i,j:integer;
b:boolean;
procedure entermas(var a:mas;c:char);
var
i:integer;
begin
write('BBeguTe MaccuB ',c,' :');
for i:=1 to n do read(a[i]);
end;
function max(a,b:integer):integer;
begin
if a>b then max:=a else max:=b;
end;
begin
entermas(c,'C');
entermas(p,'P');
b:=false;
for i:=1 to n do
for j:=1 to n do if c[i]=p[i] then b:=true;
if b then writeln('EcTb TaKou')
else begin
writeln('MaccuB C:');
for i:=1 to n do begin
x[i]:=max(c[i],p[i]);
write(x[i],' ');
end;
end;
end.