Program stroki; uses crt; var sing, quant, sq: string; begin quant:='Нет'; sing:='Да'; sq:=quant+' '+sing; writeln(sq); write(concat(sq, ' ',quant,'', sing)); end.