program HelloWorld;
var n:array [1..6] of string;
var i,k,j: smallint;
begin
n[1] := '1+';
n[2] := '2+';
n[3] := '3+';
n[4] := '4+';
n[5] := '5+';
n[6] := '6';
k := 0;
for i:=1 to 6 do
if pos('+',n[i]) > 0 then k := k + 1;
if k>4 then
for i:=1 to 6 do
begin
j := pos('+',n[i]);
if j > 0 then
begin
delete(n[i],j,1);
insert('=',n[i],j);
end;
end;
for i:=1 to 6 do
writeln(n[i]);
end.
Непомню
Объяснение:
вроде 5